Perl : 寄出中文

#! /usr/bin/perl

require "$ENV{HOME}/perl/setEnv.pl";
use Mail::Sendmail;
use Encode;
use MIME::Base64;

$ENV{LANG} = "zh_TW.Big5";

&main();

sub main {
&mailAlert();
}


sub mailAlert {
my $subject = "提醒，別忘了每月UPS溫度檢測";
my $message = "如題";
my %mail = (
From => 'xxx',
To => "zzz",
Subject => $subject
);
$mail{smtp} = "$smtp";

$message = qq {"如題"};

$boundary = "====" . time() . "====";
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";

$boundary = '--'.$boundary;
$mail{body} = &lt&ltEND_OF_BODY;
$boundary
Content-Type: text/plain; charset="big5"
Content-Transfer-Encoding: quoted-printable

$message
$boundary

$mail{body}
$boundary--
END_OF_BODY

sendmail %mail;
}