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