$ cat temp.pl
#!/usr/bin/perl -s
print $e . "\n";
$ ./temp.pl -e=test
test
$ ./temp.pl -e
1
$ perl temp.pl -e=test
1
$ perl temp.pl -e
1