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