GetOptions( \%options, 'server=s', 'date=s', 
           'man', 'help', 'alert!', 'debug+'
          ) || pod2usage(2);

##</code><code>##

#!/ms/dist/perl5/bin/perl5.10
# A one-line description of what this script does.

our ($VERSION) = '$Revision: #24 $ ' =~ m{ \$Revision: \s+ (\S+) }x; ## no critic (InterpolationOfMetachars);

use 5.010;
use warnings;
use strict;

#
#   Last edited by:  $Author$
#               on:  $Date$
#         Filename:  $Source$
#         Revision:  $Revision$
#
#               ID:  $Id$

# Database
#

use English qw( -no_match_vars );
use Fatal qw( open close );

use Readonly;
use DBI;

use POSIX 'strftime';
use Getopt::Long;
use Pod::Usage;

# ======================================================================
# Configuration Section
#

# ======================================================================
# Subroutines
#

########################################################################
# Usage      :
# Purpose    :
# Returns    :
# Parameters :
# Throws     :
# Comments   :
# See Also   :
#

# ======================================================================
# Main Processing Section
#
MAIN: {
    my %options;

    GetOptions( \%options, 
                'man', 'help', 'alert!', 'debug+'
              ) || pod2usage(2);

    pod2usage(1) if $options{'help'};
    pod2usage( '-verbose' => 2 ) if $options{'man'};
}

# ======================================================================
__END__

=head1 NAME
 
<application name> - <One line description of application's purpose>
 
=head1 VERSION
 
This documentation refers to <application name> version $Id$
 
=head1 USAGE
 
    # Brief working invocation example(s) here showing the most common usage(s)
 
    # This section will be as far as many users ever read
    # so make it as educational and exemplary as possible.
 
 
=head1 REQUIRED ARGUMENTS
 
A complete list of every argument that must appear on the command line. 
when the application  is invoked, explaining what each of them does, any
restrictions on where each one may appear (i.e. flags that must appear 
before or after filenames), and how the various arguments and options 
may interact (e.g. mutual exclusions, required combinations, etc.)
 
If all of the application's arguments are optional this section
may be omitted entirely.
 
 
=head1 OPTIONS
 
A complete list of every available option with which the application 
can be invoked, explaining what each does, and listing any restrictions,
or interactions.
 
If the application has no options this section may be omitted entirely.
 
NOTE: This section, and nothing more, is printed out for C<prog -help>.
 
=head1 DESCRIPTION
 
A full description of the application and its features.
May include numerous subsections (i.e. =head2, =head3, etc.) 
 
 
=head1 DIAGNOSTICS
 
A list of every error and warning message that the application can generate
(even the ones that will "never happen"), with a full explanation of each 
problem, one or more likely causes, and any suggested remedies. If the
application generates exit status codes (e.g. under Unix) then list the exit
status associated with each error.
 
 
=head1 CONFIGURATION AND ENVIRONMENT
 
A full explanation of any configuration system(s) used by the application,
including the names and locations of any configuration files, and the
meaning of any environment variables or properties that can be set. These
descriptions must also include details of any configuration language used
  
 
=head1 DEPENDENCIES
=head1 INCOMPATIBILITIES
=head1 BUGS AND LIMITATIONS
=head1 AUTHOR

 <name> <long.email>@company.com
 <date> <dept>

=cut 

# ======================================================================
# End of File
# ======================================================================