First, use code tags to format your code when you post it. See the FAQ for details.

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";
}
[download]

The code above should do the trick...You weren't passing your switches into \%opts!

UPDATE:
Hmm i am stumped. Use Getopt::Long, it's cooler anyhoo :P

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";
}
[download]

Azatoth a.k.a Captain Whiplash

Make Your Die Messages Full of Wisdom!
Get YOUR PerlMonks Stagename here!
Want to speak like a Londoner?