use DBI;

#!/usr/bin/perl

use strict;

use DBI;

my $db="base";
my $host="localhost";
#$port="3306";
my $userid="root";
my $pass="";
my $connectionInfo="DBI:mysql:database=$db;$host";

my $dbh = DBI->connect($connectionInfo,$userid,$pass,
                        {'RaiseError' => 1});

my $query = "SELECT * FROM example";

my $sth = $dbh->prepare($query);

$sth->execute();

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

#print "Resultados";

while($sth->fetch())
{
        print "$nombre - $descripcion";
}

$sth->finish();
$dbh->disconnect;