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.