MySQL en Perl

[dix10]

#Datos para la conexion con la bd.
$u = "tuusuario";
$p = "tupassword";

#Conectamos a la BD

$dbh = DBI -> connect("dbi:mysql:tubd:localhost",$u,$p) || die "No puedo conectar";

#cargamos a una variable la consulta
$select_categ = qq|SELECT categ_id,categ_productos FROM categorias WHERE categ_comparar >="1"|;

#Preparamos la consulta
$sth = $dbh -> prepare(qq{$select_categ});

#Ejecutamos la ocnsulta
$sth ->execute();

($datos) = $sth->fetchrow_array();


Fijate en google que hay mucha doc sobre este tema

Saludos