$! = 0;
$line = readline $file;
!defined($line) && $! and die "error readline: $!";

##</code><code>##

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