use Getopt::Std;
getopt('ed');
if ($opt_e = 1){
  print "option e\n";
} else{
  print "option d\n";
}