$! = 0
$line = readline $file;
$! and die "error readline: $!";