#!/usr/bin/perl -w
# See "perldoc DBI"

use DBI;

my $dbh = DBI->connect('DBI:mysql:testdb','root','funker') or die 'error in connect';

my $rows = $dbh->prepare("select * from log") or die 'error in prepare';
$rows->execute();
while ( @row = $rows->fetchrow_array ) {
	print "@row\n";
}
print "Finished do\n";
