Помогите реализовать "Запуск perl скрипта из perl скрипта с параметрами"
#!/usr/bin/perl -w
use IO::Socket;
use threads;
use threads::shared;
use DBI;
my ($th, $ports) = @ARGV;
$db=DBI->connect("DBI:mysql:scaner:127.0.0.1","root","root");
$db=$db->prepare('SELECT `ip` FROM `ping`');
$db->execute;
my $ip="";
sub job{
@ARGV = ( " $ip $th $ports" );
do "./ports";
#do "./ports $ip $th $ports";
}
while ( my $row = $db->fetch )
{
$ip=@{$row};
threads->create(\&job)->join();
}