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