#!/usr/bin/perl
use strict;

# subroutines ---------------
sub abc($$);
# abc() does x,y,z

# main() --------------------

...

# subroutines ---------------

sub abc($$) {
# abc() does x,y,z
# inputs: ...
# returns: ...

   # function code here
}