#!/usr/bin/perl
use DBI; 

use DBD::ODBC;
$basededatos="biblioteca"
$origendedatos="DBI:ODBC :" . $basededatos;
$db = DBI->connect ($origendedatos);
if( ! defined $db ) {
       die "No se puede conectar a la base de datos\n";
}
$stm = $db->prepare("select * from libros");
$stm->execute ();
while( @data = $stm->fetchow_array() ) {
       print "DATA= @data\n";
}
$stm->finish();
$db->disconnect();

print "Content-type: text/html\n\n";
print "<html><h1>BIBLIOTECA</h1></html>\n";