Also worth a mention simply because I think it's nifty, Getopt::Long has an auto_help option. If you throw some POD in your code (specifically a SYNOPSIS section), turning auto_help on will automatically display that section.

use Getopt::Long qw/:config auto_help/;

...

=pod

=head1 SYNOPSIS

some help text...

=cut

...
[download]