#!/usr/bin/perl

use DBI;

my $driver = 'mysql';

my $dbh = DBI->connect("DBI:$driver:database=survey;host=localhost;port=3306","web","web");

my $sth = $dbh->prepare("SELECT * FROM responses");

$sth->execute;

while( my $ref = $sth->fetchrow_hashref() ) {
	foreach my $key (sort keys %$ref) {
		my $val = $$ref{$key};
		$val =~ s/^\'//s;
		$val =~ s/\'$//s;
#		$val = DBI::neat($val, 40);
		print $key, "\t", $val, "\n";
	}
}

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