J'ai un petit code qui sur le papier devrait bien marcher mais seulement quand je le lance ben ça marche nettement moins bien


use threads;
use strict;
use DBI;
use warnings;
use diagnostics;

my @pth;
my $ptiming;
my $rep;
my $database = "...";
my $hostname = "localhost";
my $login = "root";
my $mdp = "";
my $dsn = "DBI:mysql:$database:$hostname";
my $sth;
my $dbh;

threads->new(\&main)->join;

sub main
{
while(1)
{
$dbh = DBI->connect($dsn,$login,$mdp) or die "ECHEC connexion";
@pth = ();
for(my (…)