This module is handy because it allows you to pull usage info straight from the POD in the Perl script:
#!/usr/bin/perl
use Pod::Usage;
pod2usage();
exit;
__END__
=head1 NAME
blah.pl
=head1 SYNOPSIS
blah -foo qux -bar "quux"
=head1 OPTIONS
=over 8
=item B<-foo>
This does foo stuff.
=item B<-bar>
This does bar stuff.
=head1 DESCRIPTION
B<blah.pl> will do some stuff and then exit.
-Attribution
Comments (0)
You don't have permission to comment on this page.