my $sql = "SELECT * FROM foo"; my $sth = $dbh->prepare($sql) || die "Couldn't prepare $sql: $DBI::errstr"; while ( my @row = $sth->fetchrow_array ) { print "@row\n"; }