undef $!;
while ($data = <$fh>) {
   # do something with $data
}
if (defined $!) {
   # handle readline error
}