#!/usr/bin/perl -w

use strict;
use vars qw($opt_h);
use Getopt::Std;
getopts("hiy:");

if(defined $opt_h) {
   print "\n";
   print "  Usage: sample.pl [options]\n";
   print "Options:\n";
   print "                 -h         display help.\n";
   exit;
}