BEGIN { my $x = "... arbitrary perl code ..."; eval "sub foo {}" if eval $x; } foo();