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

##</code><code>##

perldoc -f system