Запуск perl скрипта из perl скрипта с параметрами

[lexasub]

Помогите реализовать "Запуск 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();

}


[ReNzRv]

Код: (perl) [Выделить]

system "./ports $ip $th $ports"

[lexasub]

Спасибо огромное за ваш ответ