#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Std;

my %opts;
getopts('hvs:x:t:d:', \%opts); 
usage() if($opts{h});