>perl -e "print 'foo' foo >