use DBI;

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

$create_table_stmt="create table bench_%d (i int NOT NULL,
                                           d double, f float,
                                           s char(10),
                                           v varchar(100),
                                           primary key (i)) ENGINE=FALCON";
$drop_table_stmt="drop table bench_%d";

$max_tables=2500;

# Create table
print "Create $max_tables tables\n";
for ($i=0; $i<$max_tables; $i++)
{
  $sql=sprintf($create_table_stmt,$i);
  $dbh->do($sql) or die $DBI::errstr;
}
# Drop table
print "Drop $max_tables tables\n";
for ($i=0; $i<$max_tables; $i++)
{
  $sql=sprintf($drop_table_stmt,$i);
  $dbh->do($sql) or die $DBI::errstr;
}
# Create+drop table
print "Create and drop $max_tables tables\n";
for ($i=0; $i<$max_tables; $i++)
{
  $sql=sprintf($create_table_stmt,$i);
  $dbh->do($sql) or die $DBI::errstr;

  $sql=sprintf($drop_table_stmt,$i);
  $dbh->do($sql) or die $DBI::errstr;
}