Select Code to Download

sub yada { ... }
print ...;
...
sub yadda {}
print...;
yadda();

#!/usr/bin/perl --
Main( @ARGV );
...
}
sub yada { ... }
sub yadda { ... }