in reply to Referencing the null file handle, <>

perl -e 'print while <ARGV>'

[download]
if you give a(some) file(s), it will read the file(s), elsif will read the stdin

In Section Seekers of Perl Wisdom