#!/usr/bin/perl -w

use strict;
use Getopt::Long;

my %Args                    = ();
my $option = "";
my $help   = 0;

my $InOpts = GetOptions( \%Args,
                         'o|option=s'       => \$option,
			 'h|help'           => \$help ) or die "usage option  ...";

print "$help\n";

print "Usage ..." if( ! $InOpts);
print "help ..."  if( $help );