my $coderef = eval <<'END';
sub {
  print "hello world\n";
  BEGIN { print "you lose!\n"; }
  print "goodbye world\n";
}
END