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