Select Code to Download

$ cat myscript.pl
#!/usr/bin/perl -w
...

print "yeah!\n" if $thingy->is_thing();
print "boo!\n" unless $thingy->is_thing();

$ cat MyModule.pm
package MyModule;
...
}
...
1;

#use lib('.');
#use MyModule;

$ cat myscript.pl MyModule.pm > newscript.pl
$ ./newscript.pl
$ boo!