$code = 'print "Hello, World!\n"';
$coderef = eval "sub { $code }";
$coderef->();