while ($data = <$fh>) {
   # do something with $data
}
if ($fh->READLINE_ERROR) {   # but this method doesn't exist
   # handle readline error
} else {
   # handle EOF
}