perl -le"$foo='bar';print $foo"