note
biosysadmin
Interesting. Another thing you might try is manually undef'ing your database handles at the end of your loop, like this:
<code>
foreach my $x (0..$#links) {
$pm->start and next;
my $dbh = DBI->connect("DBI:mysql:database=customers;host=loca
+lhost;port=3306", "root", "")
or die "Can't connect: ", $DBI::errstr;
$dbh->{RaiseError} = 1;
print "$links[$x]\n";
# do something (read, update, insert from db)
$dbh->disconnect;
undef($dbh);
$pm->finish;
}
</code>
Best of luck. :)
405911
406046