#!/usr/bin/perl

use DBI;

for $n (1 .. 5000) {

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