in reply to Re: Testing filehandles
in thread Testing filehandles

Or alternatively... 
while (<STDIN>) {
  last if $_ eq "\n";
}

[download]

In Section Seekers of Perl Wisdom