$sth->execute();

        while (
                (
                        $gc_id, $cdr_day, $call_status, $direction, $pdd, $state, $noacpn, $i_cause
                )
                = $sth->fetchrow_array
          )
        {
                push @output,
                  $xml->cdr(
                        $xml->GC_ID($gc_id),
                        $xml->Date($cdr_day),
                        $xml->CallStatus($call_status),
                        $xml->Direction($direction),
                        $xml->State($state),
                        $xml->PDD($pdd),
                        $xml->NOACPN($noacpn),
                        $xml->I_REL_CAUSE($i_cause)
                  );
        }

        my $cgi = CGI->new;
        $hdr = "Custom Report";
        print $cgi->header('text/xml');
        print "<dataset name=\"$hdr\">\n";
        print @output;
        print "</dataset>";