#!/usr/bin/perl -Wl
use strict;
use warnings;

$|++;

open F, "<", $ARGV[0];

while (1) {
    last if  eof(F);
    if (defined chomp( local $_ = readline (F) )) {
        print
    } else {
        warn "hmerrm, readline failed : $!";
        last;
    }
}

# or

while (1) {
    last if  eof(F);
    chomp( local $_ = eval "readline (F)" );
    unless ($@) {
        print;
    } else {
        warn "whoops, readline failed : $@";
        last;
    }
}