open FH, "+< $filename" or die "Can't open $filename for r/w: $!\n";