perl -e "system(q(type myfile.txt))"