#!/usr/bin/perl -w
# vim: set sw=8 ts=8 si et:
# 
# uncomment strict to make the perl compiler very 
# strict about declarations:
#use strict;
# global variables:
use vars qw($opt_h);
use Getopt::Std;
#
&getopts("h")||die "ERROR: No such option. -h for help\n";
&help if ($opt_h);
#
#>>your code<<
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
sub help{
        print "help message\n";
        exit;
}
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
__END__