local *evalsub;
eval $code;
evalsub();

##</code><code>##

my $code = 'sub { print "evalsub" }';

my $coderef = eval $code;

# Call our code
$coderef->();