#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use Getopt::Long;
use Pod::Usage;


my $some_param = 5; #Default value
my $help = 0;

if ( @ARGV == 0  ) {
    &usage();
    exit(1);
}

my $res = GetOptions (
                      "someparam|s=s"=>\$some_param,
                      "help"=> \$help,
                  );

&usage() if ($help);


if ($res) { 

    # Do sth with param  
    print "PARAM IS: $some_param\n";

}


sub usage {              
    print <<HELP;
        mycode.pl version 1.00    
        Copyright (C) 2006 by MONKFAN; all rights reserved

        Usage: perl $0 [-options] 

        Options are:

        -h   Print this help      
        -s   Some param

HELP
        exit;
}