使用附件发送zip文件

Question

我正在尝试将邮件文件作为邮件附件发送。我正在使用glob和SMTP，并且之前已成功发送文本文件。但是zip文件没有正确到达，因为我猜它不能像文本文件一样直接读取。

my $input = "$slogfile";
zip $input => "runETL.zip" or die "zip failed: $ZipError\n";

$pattern =  "runETL.zip";
($pattern) = @_;

@log = glob ("$input");
open(my $f, '<', @log) or die "OPENING @log: $!\n";
$szip = do { local($/); <$f> };
close($f);