print "Surprise!\n" if (!defined(eval { $num++; return 1;}));

#or (equivalent)
print "Surprise!\n" if (!defined(eval { $num++; 1;}));