use strict;
use warnings;

### Begin configuration
my $DSN = "dbi:mysql:test";
my $USER = "dbusername";
my $PASS = "dbpassword";
### End configuration

use DBI;
my $dbh = DBI->connect($DSN, $USER, $PASS, {RaiseError => 1})
  || die "Cannot connect to db";

$dbh->do(qq[delete from cachetest]);
for(my $i=1;$i<=20000; $i++) {
  $dbh->do(qq[insert into cachetest (a,b,c,d,e,f,g) values (?,?,?,?,?,?,?)],
           undef,
           rand(1_000_000),
           rand(1_000_000),
           rand(1_000_000),
           rand(1_000_000),
           rand(1_000_000),
           rand(1_000_000),
           rand(1_000_000),
          );