perlsql

#!/usr/bin/env perl

use DBI;

my $user = "usuario";

my $db = "base_de_datos";

my $host = "host";

my $port = "3306";

my $table = "table";

#my $pass = "pass"; # Descomentar y definir el password

#=pod # descomentar

print "Password : ";

my $pass = <STDIN>;

chop($pass);

#=cut # descomentar para no preguntar el password

my $info="DBI:mysql:database=$db;$host:$port";

my $dbh = DBI->connect($info,$user,$pass);

my $query = "Select * from $table"; # query de ejemplo,varios datos

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

$sth->execute();

my $referencia;
my $n = 0; # Creamos un numero para guardar el nombre de los valores
while($referencia = $sth->fetchrow_hashref()) # Llenamos el valor de la referencia con nuevos valores
{
if ($n == 0)
{
    foreach my $keys (keys $referencia)
    {
        print  " $keys"; # Imprimimos las llaves
    }

}
print "\n";

foreach my $keys (keys $referencia)
  {
        print  " $referencia->{$keys}"; # Imprimimos las columnas
  }
$n++;
}
print "\n";

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