#!/usr/bin/perl -w
use DBI;

$| = 1;

$dbh=DBI->connect("DBI:mysql:test","","") or die DBI::errstr;

$dbh->do("drop table if exists cargo");
$dbh->do(<<EOM) or die DBI::errstr;
  create table cargo (
           uq int primary key auto_increment,
           garbage varchar(100)
   ) type=HEAP
EOM

$sth = $dbh->prepare("insert into cargo (garbage) values (?)");
for  (1..50_000) {
        $sth->bind_param(1,gen_rand_str(100));
        $sth->execute() or die DBI::errstr;
        print "$_ " if ($_ % 1000) == 0;
}
$sth->finish;
$dbh->disconnect;


sub gen_rand_str {
        my $len = shift;
        $res = ' 'x$len;
        for (1..$len) {
                substr($res,$_) = chr( rand(26) +ord('a'));

       }
        return $res;
}