perl -e -s 'print $foo' -foo=bar