Select Code to Download

my $code = 'sub { my $arg = shift; warn $arg; }';

use Safe;

...

$ssub->( "hello$/" );
&$ssub( "hello$/" );