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