perl -e 'print "foo\n";'