if($sth->execute) { while(my $dat = $sth->fetchrow) {$csv->print($fh, $dat);
}