tie $dbfh, 'Tie::DBI', $dsn, $user, $pass, 'id, name from foo';
while (my $record = <$dbfh>) {
 print "ID:   ", $record->{id}, "\n";
 print "Name: ", $record->{name}, "\n";
}