$ perl -se 'print $foo,$/' -- -foo=bar
bar