in reply to Re^4: Which is your favourite cmt-deserving Perl feature?
in thread Which is your favourite cmt-deserving Perl feature?

<> needs to hit eof. Try this:

$ touch empty_file
$ yes junk | head -3 | perl nasty.pl empty_file
first line: first loop: junk
first loop: junk
first loop: junk

[download]

Nasty, it is.

In Section Meditations