Select Code to Download

#!/usr/local/bin/perl -w
# Doable.pm
...
    ) { die( "\n\nThere has been a breach of contract.\n\n" ); } # end
+ unless

} 1; # end Doable

#!/usr/local/bin/perl -w
# Doer.pm
...
    # sub doThatThing { return(0); } # end doThatThing

} 1; # end Doer

#!/usr/local/bin/perl -w
# MyApp.pl
...
    } # end _main

} 1; # end _MyApp