#!/usr/bin/perl

BEGIN {
    $|  = 1;
    $^W = 1;
}

use strict;
use warnings;
use Pod::Usage;
use Getopt::Long;

my $help = 0;

pod2usage(2) unless GetOptions('help|?' => \$help);

my $verbose      = 99;
my $message_text = "special usage stuff here...\n";
my $sections     = 'SPECIAL';

pod2usage(
    -verbose  => $verbose,
    -message  => $message_text,
    -sections => $sections,
); 

__END__

=head1 SYNOPSIS
    
    here's the main usage stuff

=head1 SPECIAL
    
    special usage stuff here...

=cut