#!/usr/bin/perl
use DBI;


my $dbh = DBI->connect("dbi:mysql:dbname=test","root","");
my $sth = $dbh->prepare("SELECT client.nom, prenom, animaux.nom FROM client,animaux WHERE client.nom LIKE 'po%' AND animaux.RefClient= client.RefClient ORDER BY client.nom");
$sth->execute();
my @ligne;
while (@ligne= $sth->fetchrow_array() ){
	print "ligne : @ligne\n";
}