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