Select Code to Download

sub foo { return "bar" }
printf "foo returns %s\n", foo();

#!/usr/bin/env perl

...
    );

print $output;