如何在使用Mailx PERL发送邮件时隐藏Content-Length

Question

我正在使用mailx发送短信/电子邮件。工作正常，但我想避免在消息中发送Content-Length。它总是粘贴在消息中的“主题”之后。任何想法？非常感谢您的任何建议。

my %rcpt = map{ $_ => 1 } @{ $g_SmsTo };
foreach my $key (keys %rcpt){
    if (! open(MSG, "|/usr/bin/mailx -r \"$g_SmsFrom\" -s \"$g_SmsSubject\nServer Date: $machine_date_time\n$number_of_alarms alarm(s) registered on $machine [$machine_type]\" $key"))
    {
        print "%s Fatal Error: Could not start mail!";
        print "%s Aborting.....\n";
        return 0;
    }
print MSG "@msg";
close(MSG);

}