my @xml_array = ();
	while ( my $row = $sth->fetchrow_arrayref ) {
		push @xml_array, $row;
	}

	my $cgi = CGI->new;
	print $cgi->header('text/xml');
	print Dumper( \@xml_array );	
	my $testxml = XMLout( \@xml_array, NoAttr => 1, RootName => 'dataset', );
	print $testxml;

##</code><code>##

$xml->cdr(
			$xml->Date($date_time),
			$xml->IngressTG($orig_gw),
			$xml->EgressTG($term_gw),
			$xml->Dialed($call_dtmf),
			$xml->DUR($duration),
			$xml->PDD($hold_time),
			$xml->ISDN($isdn),
			$xml->CallType($call_type),
			$xml->Link("URL")
		  );