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

##</code><code>##

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