open( FH , "+<" , $file )
  or die "Unable to open '".$file."' - $!\n";