use Getopt::Std;

my %opt;
my $opt{d} = "x";
my $opt{a} = "0";
my $opt{s} = "0";
my $opt{e} = "x";
getopts("dase:", \%opt);