my $sql = SQL::Abstract->new;

        ($group,$source,$orig,$term,$i_sig_start,$cdr_day,$call_status,$e_rel_cause,$pdd,$asr,$call_duration,$npa,$i_tg_name,$e_tg_name,$state,$gc_id,$dn,$noacpn,$i_rel_cause) = @_;

        if ($gc_id) {
                push @fields, "GC_ID";
        }

        if ($pdd) {
                push @fields, "PDD";
        } 
        
         %where = (DAY => '2007-10-06');
        $table = "TABLE_NAME";

        my($stmt, @bind) = $sql->select($table, \@fields, \%where);

       my $sth = $dbh->prepare($stmt);

        unless ($sth) {
                $dbh->disconnect;
        }
        $sth->execute(@bind);

         while (my $row = $sth->fetchrow_hashref ){
                 >>>>>>WHAT DO I DO HERE FOR XML????>>>>
         }