#!/usr/bin/perl -Tw
use DBI;
$dbh = DBI->connect("DBI:mysql:database","login","password");
Remarque :
// requette sans result
$rows_affected = $dbh->do("USE services") || die "Database Error: $DBI::errstr";
// exemples de requette avec result et param :
$sth = $dbh->prepare("SELECT ... FROM ... WHERE id=?");
$sth->execute($id);
($result1, $result2, ...) =$sth->fetchrow();
$sth->finish();