use DBI;

my $dbh = DBI->connect( 'dbi:mysql:biobix',
                        'root',
                        'biobix',
                      ) || die "Database connection not made: $DBI::errstr";

$sth = $dbh->prepare('SELECT * FROM pokemon');
$sth->execute();
while (my @row = $sth->fetchrow_array) {

print join(":",@row),"\n";
}
$sth->finish();

$dbh->disconnect();