Select Code to Download

#!/usr/bin/perl

...

print "FISH\n";
1;

#!/usr/bin/perl

...

print "Not done anything with the module yet\n";
&testfish::sub_to_do_something();

FISH
Not done anything with the module yet
Doing something