#!/usr/bin/perl
 
use strict;
use DBI();
 
my $dbh = DBI->connect("DBI:mysql:database=QuickBooksSqlBroker;host=localhost:3307",
"root", "my_password",
{'RaiseError' => 1});

my $result = $dbh->prepare("SELECT * FROM Customers");
$result->execute();
while (my $row = $result->fetchrow_arrayref) {
my $csv = join(',', @$row);
print "$csv
";
}
$result->finish();
$dbh->disconnect();