Select Code to Download

#!/usr/bin/perl -w

...
my $code = q{ open( my $fh, '<', 'foo.txt' ) or die("open failed: $!")
+ };
my $sub = sub { eval($code) or die("error in eval(): $@"); };
$sub->();

#!/usr/bin/perl -w

...
    $$sub_name = $sub;
    $do_this->();
}