$ cat t.pl
#!/usr/bin/perl
print "foo=$foo\n";
$ perl t.pl -foo=bar
foo=

##</code><code>##

$ cat t.pl
#!/usr/bin/perl -s
print "foo=$foo\n";
$ perl -s t.pl -foo=bar
foo=bar

##</code><code>##

$ cat t.pl
#!/usr/bin/perl -s
print "foo=$foo\n";
$ perl t.pl -foo=bar
foo=1