my $coderef = eval <<'EOF';
sub forget_me_not;
sub { print "do some stuff"; }
EOF