if ( open my $fh, '<', $file ) {
        # while-Block
    }