open my $fh => $file or die "Whatever: $!";
    flock $fh => LOCK_SH or die "Whatever: $!";
    local $_;
    while (<$fh>) {
        ....;     
    }
    close $fh or die "Whatever: $!";