Select Code to Download

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

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

        $sth->execute();

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

my $row = $sth->fetchrow_hasharray;