#!/usr/bin/perl -w

use strict;

use Getopt::Std;

sub usage {
        print <<NOW;

        usage : $0 [-h] -l<something> -t<somethig> -f<file>

        syntax:
            -h
                prints this help text and exists

            -l
               sometihng 

            -t
                someting 

            -f
                something 
NOW
            exit 0;
}


my $o={} ; getopt('hltf', $o); 
#usage() if $$o{h};
if ($$o{h}) {
  usage();  
}