my $xs = new XML::Simple();
my $elements = $cgi->Vars();
my $xml = $xs->XMLout(
    $elements,
    rootname => 'source'
);