#!/usr/bin/perl

# Copyright (C) 2004  Author's Name
#
# $Id: foo.pl,v 1.2 2005-01-25 01:50:13 jhoblitt Exp $

use 5.008005;                           # optional

use strict;                             # not optional
use warnings;                           # not optional

our $VERSION = '0.01';                  # optional - handy with Getopt::Long

use Foo qw( $bar );                     # import $bar into our namespace

use constant MAXFOO => 3;               # maximum number of foos

my $baz;                                # is a lexical variable in the top level scope

fuu();                                  # the body of the script

sub fuu                                 # subroutines
{

}

__END__

=pod

=head1 NAME

foo.pl - Does something with Baz.

=head1 SYNOPSIS

    foo.pl --baz

    ...

=head1 DESCRIPTION

=head1 OPTIONS

=over 4

=item * --baz

=back

=head1 DEVELOPER NOTES

=head1 REFERENCES

=head1 CREDITS

Just me, myself, and I.

=head1 SUPPORT

Please contact the author directly via e-mail.

=head1 AUTHOR

Principle authors and contact info.

=head1 COPYRIGHT

Copyright (C) 2004  Author's Name.  All rights reserved.

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later
version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE.  See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with
this program; if not, write to the Free Software Foundation, Inc., 59 Temple
Place - Suite 330, Boston, MA  02111-1307, USA.

The full text of the license can be found in the L<perlgpl> Pod as supplied
with Perl 5.8.1 and later.

=head1 SEE ALSO

L<Bar::Baz>

=cut
