#!/usr/bin/perl -w use strict; use diagnostics; use Mysql; # Connect via Unix sockets to the database on this # server my $dbh = Mysql->connect; # Choose a database $dbh->selectdb("test"); # Send our query, and get a statement handle in # return my $sth = $dbh->query( "select name,telephone from phone_book"); # Iterate through the returned rows my @arr = (); while (@arr = $sth->fetchrow) { print join("\t", @arr), "\n"; } exit;