[PERL] Executer un script perl

my $cgi = CGI->new;
print $cgi->header;
$| = 1;

$Config{useithreads} or die "Recompile Perl with threads to run this program. \n";
my @threads;
my $threadcount = 20;
my $enablethreading = 1;

my $maxhostsperurl = 0;

my $dbh;

sub connectDB {
	...données pour connection à la base
}

sub processHost {
	my ($host) = @_;
	my ($ip) = `host -W 3 -t A $host 2>/dev/null` =~ m/[0-9]+[.][0-9]+[.][0-9]+[.][0-9]+/g;
	connectDB();
	if ($ip) {
		print "<b>[ " . threads->self()->tid() . " ]</b> <a href=\"http://$host\">$host</a> - $ip <br/>\n";
		$dbh->prepare("INSERT IGNORE INTO listeIp (Ipadress, url, Type, InsertDate) VALUES ('$ip', '$host', 'WebProxy', NOW())")->execute();
	} else {
		print "<b>[ " . threads->self()->tid() . " ]</b> <a href=\"http://$host\">$host</a> - NO IP <br/>\n";
		$dbh->prepare("INSERT IGNORE INTO UrltoVerify (url) VALUES ('$host')")->execute();
	}
}

sub parseHosts {
	my ($url) = @_;
	my $content = `curl --header "User-agent: " $url 2>&1`;
	my $hostpattern = "[a-z0-9][a-z0-9-]*[.][a-z.]+[a-z]";
	my $p1 = "value=[\"]($hostpattern)[\"]";
	my $p2 = "<li>($hostpattern)";
	my $p3 = "<a>($hostpattern)";
	my $c = 0;
	while ($content =~ m/($p1)|($p2)|($p3)/igs) {
		if ($maxhostsperurl > 0 && ++$c > $maxhostsperurl) {
			print "<b>Thread " . threads->self()->tid() . " exiting, after $maxhostsperurl hosts in test mode.</b> Set \$maxhostsperurl to 0 for a full run. <br/>\n";
			return;
		}
		if ($2) {
			processHost($2);
		} elsif ($4) {
			processHost($4);
		} elsif ($6) {
			processHost($6);
		}
	}
}

sub parseHostsThreaded {
	my ($url) = @_;
	for (my $t = 0; $t < $threadcount; $t++) {
		if (!$threads[$t]) {
			$threads[$t] = threads->new(\&parseHosts, $url);
			return;
		}
	}
	closeOpenThreads();
	parseHostsThreaded($url);
}

sub closeOpenThreads {
	for (my $t = 0; $t < $threadcount; $t++) {
		if ($threads[$t]) {
			$threads[$t]->join();
			$threads[$t] = 0;
		}
	}
}

connectDB();
my $sth = $dbh->prepare("SELECT * FROM listeUrl");
$sth->execute;
my $t = -1;
while (my @row = $sth->fetchrow_array()) {
	if ($enablethreading) {
		parseHostsThreaded($row[1]);
	} else {
		parseHosts($row[1]);
	}
}
closeOpenThreads();

use Socket;
sub getip {
    my $addr = gethostbyname(shift);
    $addr ? inet_ntoa $addr : undef;
}