Select Code to Download

sub eval_this {
      my $code = shift;
...
      eval $code;
      die ("Error: $@") if $@;
}

eval_this('our $var; print $var');