#!/usr/local/bin/perl -w FILENAME

use warnings;
use strict;

use Getopt::Std;
$Getopt::Std::STANDARD_HELP_VERSION = 1;

use Pod::Usage;

# ======================================================== SETUP

my $VERSION = v1.0.0;

my %options;

getopts('h', \%options);
HELP_MESSAGE() if $options{'h'};

# ========================================================= MAIN

print "ok";

# ========================================================= SUBS

sub HELP_MESSAGE {
	pod2usage ( {
		-exit_status	=> 0,
		-verbose_level 	=> 1
	} );
}

sub VERSION_MESSAGE {
	return 1 if (lc $ARGV[0] eq "--help");
	print "This program is $0, ";
	printf "version %vd\n", $VERSION;
	printf "(Using Perl v%vd)", $^V;
	exit 0;
}

__END__

=head1 NAME

FILENAME

=head1 SYNOPSIS

A one line description, possibly command syntax.

=head1 STATUS

Version information (program and Perl).

=head1 DEPENDENCIES

Any special CPAN module dependencies go here.

=head1 DESCRIPTION

The bulk of the documentation.

=head1 OPTIONS

=over 4

=item -h, --help

Prints synopsis and options, then exits.

=item --version

Prints version information and exits.

=back

=head1 EXAMPLES

text

=head1 TO DO

text

=head1 BUGS

text

=head1 SEE ALSO

text

=head1 AUTHOR

Bruce H. McCosar.

=head1 COPYRIGHT

Copyright %YEAR% by Bruce H. McCosar.  All Rights Reserved.

This program is free software.  You may copy or distribute it
under the same terms as Perl itself.