use strict;
use CGI ':standard';
use XML::Simple;

my @data = ('C:\coffee.xml');
my $category = XMLin((join'', @data));

XMLout($xml, rootname =>'category', outputfile =>('c:\test4.xml'));