my $sql = "select * from location";
my $sth = $dbh->prepare( $sql );
$sth->execute();
while (my @record = $sth->fetchrow_array) {
  print join(", ", @record);
  print "\n";
}
$dbh->disconnect();