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

##</code><code>##

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