use DBI;
use Data::Dumper;
use Benchmark q(:all);
use strict;

my $dbh = DBI->connect("dbi:mysql:test","root","", {RaiseError=>1}) || die $DBI::errstr;

cmpthese( 9999, {
  cache   => 'prepcache',
  normal => 'prep',
});

sub prepcache {
    $dbh->prepare_cached("X"x100_000);
}
sub prep {
    $dbh->prepare("X"x100_000);
}