$code= sub { eval shift };
$code->( 'print "Hi.\n"' );