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

my $host          = 'server.lan.de';
my $database = 'benchmark_test';
my $user          = 'benchmarker';
my $passwd    = 'tester';

my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host;",$user,$passwd,{PrintError => 1, RaiseError => 1})
					or die DBI::errstr;
					
				
my $sql = qq|
						INSERT INTO testobject (col1,col2,col3,col4)
						VALUES (
						'127402341236478152304123840912364891263410234',
						'lasdjfhoyxcv,asiwezrfbc,y<xfuzaweold<',
						'asdlfkjhasldr8ahkjcvn yxlkurfhoiaeywuhcvnjkxnvliawuerzhdaiouwbcf<jasb c.k<asdhnfliawehfcvjk<nscdlöiauwehfv <',
						'alsduzcnfhasldncrnhfasdklhcfalshrflauisec filbnsdlfkanacs f
						alsducfhnalusehrnliuwhva nluise fhliudsncfhlaeuifhev uihfva enwfvad
						acnselriu iuehrncao93zr89a  nfdksjfhna lhd9f8a3znc  chsildahsdf va
						apsedzncf aszndhflah nsdfoahef kjahöahwüäruq 3hrf asdasdfn batweintr löwezt ösodihf vawe'
						)
						|;

for (0..100_000) {
	print "Do $_ \n";
	$dbh->do($sql) or die DBI::errstr;
}						
						
						
exit;