$sth->execute($date) or die "Couldn't get values from table: " . DBI->errstr;

my @data;
while (my @row = $sth->fetchrow_array) {
    @data = @row;
}
if (@data) {
    local $" = ',';
    print "@data\n";
} else {
    "0 results\n";
    exit;
}