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

use DBI;

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

@row_ary = $dbh->selectrow_array("select * from log where num = 2")  or die 'error in select';
print @row_ary;
print "Finished do\n";
