sub make_sub {
  my ( $sub_name, $code ) = @_ ;
  local $@;
  eval "sub $sub_name { $code }" ;
  die "make_sub $sub_name: $@\n" if $@;
}

make_sub( say_hello => 'print "Hello @_\n"' );
say_hello( 'World' );
__END__
Hello World