open(FH, '<', $file)
    or die "Cannot open file '$file' for reading, stopped";