my $sth = $dbh->prepare("SELECT foo,bar FROM baz");
$sth->execute;
while (my @row = $sth->fetchrow_array) {
  print join "\t", @row;
  print "\n";
}