Alister West

home is where your code is ...

pod2usage is a great module.

Generate pod - then let your script output usage.

pod2usage.t

#!/usr/bin/env perl
=head1 NAME

    t/pod2usage.t - a simple example of pod2usage

=head1 SYNOPSIS

    ./t/pod2usage.t -h 

=cut

use Test::Simple tests => 1;
use Pod::Usage;

pod2usage(1) 
    if defined $ARGV[0] && $ARGV[0] =~ /^(-h|--help|)$/;

ok(1);
By Alister West