perl -ple1 file1 file2 ...

##</code><code>##

#! perl -pl

##</code><code>##

ptype file1 file2 file3 file4 ...

##</code><code>##

#!/usr/bin/perl -pl

##</code><code>##

ptype *.pl *.txt