my $dbh;
tie $dbh, 'Tie::DBI', $dsn, $user, $pass;
$dbh = "select * from table where field = $value";
while ( my $row = $dbh ) {
  print $row->[0], "\n";
}