while LOOP{
   BUNCH OF MATH STUFF
   ....
   ....
        push @output,
		  $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(
"../cgi-bin/rpt.pl?name=CDRDETAIL&begdate=$begindate&enddate=$enddate&interval=$interval&item2=$call_id"
			)
		  );
}

print "<dataset name=\"$hdr\">\n";
	print @output;
	print "</dataset>";