eval 'sub foo { return 2 }';
my $i = foo 3;  # Syntax error!
print("$i\n");