Смысл следующий:
С машины под w2k pro sp3, Active Perl 5.6.1
вот таким перловым скриптом пытаюсь выгрузить файл

$ftp = Net::FTP->new($hostname,Passive => 1, Debug => 0);
die "Незапущен FTP на $hostname: $! \n" unless(defined $ftp);
die "Неверный пользователь или пароль: $! \n" unless($ftp->login($username,$password));
die "Недоступен каталог на сервере для компьютера $computername: $! \n" unless($ftp->cwd("/dumps/ms/$computername"));
$status = $ftp->put("$arcname");
if (!defined($status)) {
        warn "warning: файл не ушел <$_> \n";
};
$ftp->quit;

А он, собака, выгружает только первые 4 байта от этого файла и все

НА FTP сервере стоит
ASPLinux 7.3
Wu FTP ver wu-2.6.2-5
вот что он в лог выдает
Aug 29 18:25:58 kant-backup6 ftpd[1079]: wu-ftpd - TLS settings: control allow, client_cert allow, data allow
Aug 29 18:25:59 backup6 ftpd[1079]: USER amanda
Aug 29 18:25:59 backup6 ftpd[1079]: PASS password
Aug 29 18:25:59 backup6 ftp(pam_unix)[1079]: session opened for user amanda by (uid=0)
Aug 29 18:25:59 backup6 ftpd: 915a.kantlocal.ru: amanda[1079]: FTP LOGIN FROM 915a.kantlocal.ru [192.168.0.115], amanda
Aug 29 18:25:59 backup6 ftpd: 915a.kantlocal.ru: amanda: CWD /dumps/ms/915a[1079]: CWD /dumps/ms/915a
Aug 29 18:25:59 backup6 ftpd: 915a.kantlocal.ru: amanda: PASV[1079]: PASV
Aug 29 18:25:59 backup6 ftp(pam_unix)[1079]: session closed for user amanda
Aug 29 18:25:59 backup6 ftpd: 915a.kantlocal.ru: amanda: IDLE[1079]: FTP session closed

Подскажите пожалуйста где я на грабли наступил?