#!perl
use XML::Simple;
use strict;
#Datos de la conexión
use DBI;

#Datos de la conexión
my $db="BD";
my $host="host";
my $port="3306";
my $userid="test";
my $passwd="tes";
my $connectionInfo="DBI:mysql:database=$db;$host:$port";

# Realizamos la conexión a la base de datos
my $dbh = DBI->connect($connectionInfo,$userid,$passwd);

#Sentencia SQL
my $query = "SELECT codccr,nomccr FROM ccrmae";

# Primero hay que "preparar" el query
my $sth = $dbh->prepare($query);

# Ejecutamos el query
$sth->execute();

$sth->bind_columns(undef, my $nombre, my $descripcion);

print "Resultados<p>";

# Recorremos los resultados obtenidos de la base de datos
while($sth->fetch()) {

    print "$nombre - $descripcion<br>";

}