update of task T/Tetris

Author: SqrtNegInf

T/Tetris

@@ -171,7 +171,7 @@ initscr();
 clear;
 ReadMode 'cbreak';
 eval { eventloop() };
-my $errormsg = [email protected];
+my $errormsg = $@;
 ReadMode 'restore';
 endwin();
 print $errormsg;