#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $db_user    = 'root';
my $db_passwd  = '';
my $db_options = { RaiseError => 1, AutoCommit => 1 };

my $dbh = DBI->connect('dbi:mysql:database=faq', $db_user, $db_passwd, $db_options)
    or  die DBI::errstr;

my $sth = $dbh->prepare( 'SELECT * FROM faq' );
$sth->execute();

my $num_of_fields = $sth->{NUM_OF_FIELDS} - 1;
my $names         = $sth->{NAME};

while ( my $row = $sth->fetchrow_arrayref ) {
    for my $i ( 0 .. $num_of_fields ) {
        print $names->[$i], ' => ', $row->[$i], "\n";
    }
    print "\n";
}

$dbh->disconnect;