http://www.perlmonks.org?node_id=970826


in reply to Help required on Getopt::Long

This seems to work (an idea from Re: Help required on Getopt::Long: Just add a line:
grep {/help/} @ARGV and print "This is help message\n" and exit;
above GetOptions.