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";
}

##</code><code>##

use Getopt::Long;

my %opt = ();

GetOptions(\%opt,

	"file=s",	

	);

	die "No file specified : $!" unless $opt{file};

if ($opt{file})
{
print "File is $opt{file}!\n";
}