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