open(WRITE,">$file") or die( "Cannot write to $file: $!" );