diff --git a/modules/util/Util/XML/File.pm b/modules/util/Util/XML/File.pm
index 2fbe67f715cb6c2f3ff0d16acc391de2ed37552e..5072094c0bbf4e6745165b544c8a71f48815b8b0 100644
--- a/modules/util/Util/XML/File.pm
+++ b/modules/util/Util/XML/File.pm
@@ -80,6 +80,23 @@ print __LINE__, " xmlref: ", main::Dumper ($xmlref) if ($DEBUG > 0);
   return ($xmlref, $xml);
 }
 
+sub save
+{
+  my $fnm= shift;
+  my $xml= shift;
+
+  unless (open (XML, '>:utf8', $fnm))
+  {
+    print "ATTN: can't write to fnm=[$fnm]";
+    return undef;
+  }
+
+  print "saving xml to $fnm\n";
+  print XML $xml;
+  close (XML);
+
+  1;
+}
 
 1;