#!/usr/bin/perl -w

use DBI;
use DBD::mysql;

my $dsn = "dbi:mysql:myDB;host=localhost";
my $dbh = DBI->connect($dsn, "user","") or die print $DBI::errstr;

my $sth = $dbh->prepare("select id,name from product");
$sth->execute;
my ($id,$name);
while(($id,$name)=$sth->fetchrow_array){
	print "  $id  |  $name\n";
}