my $xml = $xs->XMLout({%{$cgi->Vars()}}, rootname => 'source');