for (;;) {
        undef $!;
        unless (defined( $data = <$fh> )) {
            die $! if $!;
            last; # reached EOF
        }
        # do what you need to do with your data
        # like:
        # chomp($data);
        # ...       
}