use Getopt::Std;
use Data::Dumper;
#Getting the command-line options
my %options=();
getopt("fdrv",\%options);
#print  Dumper( \%options );
#USAGE
if (exists $options{f}) {
if ($#ARGV !=7) {
print "USAGE withouf option f";
}
}

if (not exists $options{f}) {
if ($#ARGV !=5) {
print "USAGE without option f";
}
}