#!/ usr/bin/perl 使用严格； 使用警告； #首先，创建消息 使用电子邮件：：MIME； my$message=电子邮件：：MIME->创建( 标题_str=>[ 自=>' you@example.com ', 至=>’ friend@example.com ', 主题=>“生日快乐！”， ], 属性=>{ 编码=>“引用可打印”， charset=>“ISO-8859-1”， }, body_str=>“祝您生日快乐！\n”， ); #发送消息 使用电子邮件：：发件人：：Simple qw（sendmail）； sendmail（$message）；