Select Code to Download

#!/usr/bin/perl

...
print qq{done};

sub my_sub { print qq{here\n} };

#!/usr/bin/perl

...
my_sub;     # now works too

print qq{done};