use Getopt::Std;

getopts('ed:', \%opts);

if ($opts{e})   # updated as per [Chemboy]
{ 
print "option e used!\n";
} else {
print "option e not used!\n";
}