use MIME::Base64;
use MIME::Lite;
require "jcode.pl";

# Net::SMTPモジュールがインストールされていることを前提にしています。
$I_DONT_HAVE_SENDMAIL = 1; # sendmailがない場合、あれば0かコメント化
$smtpserver = "smtp.my.co.jp";
$From ='me@my.co.jp';
$To = 'you@your.co.jp';
$subject_org = "ファイルを送ります。";
$body = "ファイルを添付しています。";

&jcode::convert(\$subject_org, "jis", "", "z");
$subject = '=?ISO-2022-JP?B?' . encode_base64($subject_org, '') . '?=';
jcode::convert(\$body, 'jis');

$msg = new MIME::Lite 
	From    =>$From,
	To      =>$To,
	Subject =>$subject,
	Type    =>'TEXT',
	Data    =>$body;

# 添付部:
attach $msg 
	binmode => 1,	
	Type     =>'image/gif',
	Path     =>'hoge.gif',
	Encoding =>'base64',
	Filename =>'hoge.gif';

if ($I_DONT_HAVE_SENDMAIL) {
	MIME::Lite->send('smtp', $smtpserver, Timeout=>60);
}

$msg->send;