总结

我在WebArena上尝试了Ubuntu 18.04。
我尝试了Perl 5.26。
我尝试了发送邮件。

示例代码

#!/usr/bin/perl
$sendmail = '/usr/sbin/sendmail';
if (!open(smtp, "| $sendmail -t"))
{
    print "error!";
    exit;
}
$mailtext = << "EOM";
From: honne<hone@hoge.com>
To: <pene@hoge.jp>
Subject: test14
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset="ISO-2022-JP"

testdesu

EOM
print smtp $mailtext;
close smtp;
print "ok";
exit;

以上。-> 这就是以上的内容。