while (my $line = <$fh>) {

##</code><code>##

while (defined( my $line = readline($fh) )) {

##</code><code>##

if (my $x = func()) {
    print "$x accesible here";
} elsif ($x eq 0) { # even here,
   print "and also here: $x";
}