perl - Net::FTP 在上传 ZIP 档案时遇到问题？

Question

我正在尝试构建一个压缩目录并将其上传到 FTP 服务器的 perl 脚本。我已经让压缩部分工作了，但不幸的是，当上传到 FTP 服务器时，ZIP 文件总是被“破坏”（打开时出错：“存档意外结束”）。

我在这里做错了吗？

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: $!";