perl -sle 'print $foo' -- -foo=bar
# prints:  bar