$ perl -se 'print "$foo\n" if $foo' -- -foo
1

$ perl -se 'print "$foo\n" if $foo' -- -foo=bar
bar