open F, $GUID_FILE or die "FATAL: Can't open '$GUID_FILE': $!\n"; open G, ">$GUID_FILE.new" or die "FATAL: Can't open '$GUID_FILE.new': $!\n"; ...