in reply to Re: Nicest way of getting STDIN a beauty contest
in thread Nicest way of getting STDIN a beauty contest

 perl -lne "warn -t STDIN"
 perl -lne "warn -t STDIN" < file
echo |  perl -lne "warn -t STDIN"

[download]

In Section Seekers of Perl Wisdom