Net :: FTP无法上传ZIP档案？

Question

我正在尝试构建一个perl脚本来压缩目录并将其上传到FTP服务器。我已经使用了压缩部分，但遗憾的是ZIP文件在上传到FTP服务器时总是被“销毁”（打开时出错：'存档意外结束'）。

我在这里做错了吗？

my $ftp = Net::FTP->new($host, Debug => 0) or die "Couldn't connect to $host: $!";
$ftp->binary();
$ftp->login($user, $password) or die "Couldn't login: $!";
$stat = $ftp->put($filename) or die "Couldn't upload file: $!";