use Getopt::Long;
my $abc;
my $help;
 
GetOptions ( "abc:s" => \$abc,
                   "help" => \$help
                 );
 
if ($help) { print "This is help message\n" ; exit ;}
 
if ($abc) { print "You have choosen \"abc\" as $abc" };