$ cat foo.pl
#!/usr/bin/perl -s
use strict;
use vars '$foo';
print $foo, "\n";

$ ./foo.pl -foo
1
$ ./foo.pl -foo=bar
bar