Select Code to Download

# untested
my $code = 'while (<>) { print; }'; # would typically be more interest
+ing
...
      eval "$code";
    }
# interesting stuff should be in output here