#!/usr/bin/perl -t
print "Content-type: text/plain\n\n";
use strict;
use DBI;
# variables a editar
my $db_user = "miuser";
my $db_pass = "miclave";
my $host_name = "miservidor";
my $db_name = "coolblog";
# vars
my $q_string = "DBI:mysql:database=$db_name;host=$host_name";
my $dbh = DBI-> connect ($q_string, $db_user, $db_pass) || die "\nError al abrir la base datos: $DBI::errstr\n";
#Mostramos aviso en caso de éxito
print "\nSe ha conectado con la BD $db_name \n";
#Nos desconectamos de la BD. Mostramos un mensaje si hay fallo
$dbh->disconnect || warn "\nFallo al desconectar.\nError: $DBI::errstr\n";