Select Code to Download

        my @xml_array = ();
    while ( my $row = $sth->fetchrow_arrayref ) {
...
    print Dumper( \@xml_array );    
    my $testxml = XMLout( \@xml_array, NoAttr => 1, RootName => 'datas
+et', );
    print $testxml;

$xml->cdr(
            $xml->Date($date_time),
...
            $xml->CallType($call_type),
            $xml->Link("URL")
          );