#! /usr/bin/perl

use strict;
use warnings;
use Getopt::Std;
use Data::Dumper;

my %opts;
getopts('f:hd:',\%opts);

print Dumper(\%opts);