It should be something simple. Try this for the SPECIAL section:
#!/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
|