$code = 'print "Hello, $name!\n";';
$sub = eval "sub { my \$name = shift; $code }";
print "Ready to test:\n";
$sub->('world');