#!.../perl ...
use strict;
... load more modules ...

our $MAX_SECS = 60;
... more configuration 'constants' ...

Main( @ARGV )
    if  $0 eq __FILE__;
return 0;

sub ...
... more subs ...