use Getopt::Long qw( GetOptions );

sub usage {
   print STDERR "...simple usage...\n";
   exit(1);
}

sub help {
   print "...more extensive help...\n";
   exit(0);
}

GetOptions(
   'h|?|help' => \&help,
   ...
)
   or usage();