Select Code to Download

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