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

...

=pod

=head1 SYNOPSIS

some help text...

=cut

...