use strict;
my $num = 1;
eval { $num++; return;};
print "Surprise!\n" if ($@);
print "$num\r\n";