День добрый!
При копировании файла по FTP, на удаленной машине(FreeBSD) создаётся одноименный файл нулевой длинны.
Скрипт, выполняющий это действие, работу не завершает.
Средствами Midnight Commander копирую без проблем.
В чём дело то?
Спасибо.

sub put2FTP
{
@ARGV1=@_;
my $ftp = Net::FTP->new(FTP_SRV,Passive=>1,Timeout=>30,Debug=>0) or die "Can't connect to $FTP_SRV: $!\n";
$ftp->login($FTP_LOGIN,$FTP_PASS) or die "Can't login to $FTP_SRV: $!\n";
$ftp->cwd("/squid");
$ftp->binary();
$ftp->put($ARGV1[0]);
$ftp->quit();
}

• Передача данных по FTP,yutar, 14:00 , 02-Июл-08
• Передача данных по FTP,angra, 02:48 , 03-Июл-08

>[оверквотинг удален]
>@ARGV1=@_;
>my $ftp = Net::FTP->new(FTP_SRV,Passive=>1,Timeout=>30,Debug=>0) or die "Can't connect to $FTP_SRV: $!\n";
>$ftp->login($FTP_LOGIN,$FTP_PASS) or die "Can't login to $FTP_SRV: $!\n";
>$ftp->cwd("/squid");
>$ftp->binary();
>$ftp->put($ARGV1[0]);
>$ftp->quit();
>}
>
>

Спросите у гугла про активный и пассивный режимы работы ftp, потом подумайте зачем вы добавили Passive=>1