diff -uNr MixiMessageExporter/MixiMessageExporter.pl MixiMessageExporter-unix/MixiMessageExporter.pl
--- MixiMessageExporter/MixiMessageExporter.pl	2005-01-31 00:29:10.000000000 +0900
+++ MixiMessageExporter-unix/MixiMessageExporter.pl	2005-01-31 13:08:13.000000000 +0900
@@ -15,7 +15,7 @@
 use Mail::Sender;
 use Digest::MD5 qw(md5_hex);
 
-my $data_dir = 'data\\';
+my $data_dir = 'data';
 
 die "usage: MixiMessageExporter.exe <mail> <password> <SMTP host>\n"
 	if @ARGV < 3;
@@ -36,7 +36,7 @@
 
 do {
 	for my $item ($mixi->parse_list_message($response)) {
-		my $filename = $data_dir.Digest::MD5::md5_hex($item->{link});
+		my $filename = $data_dir.'/'.Digest::MD5::md5_hex($item->{link});
 
 		# まだ取得されていないメッセージであれば送信する
 		unless (-e $filename) {
@@ -57,12 +57,13 @@
 		from     => $email,
 		to       => $email,
 		subject  => $jcode->set($subject)->mime_encode,
-		charset  => '"Shift_JIS"',
+		charset  => '"ISO-2022-JP"',
 		encoding => '7bit',
-		msg      => remove_tags($jcode->set($msg_body)->sjis),
+		msg      => remove_tags($jcode->set($msg_body)->jis),
 	});
 
-	print $jcode->set("* 「$subject」を送信しました。\n")->sjis;
+	print $jcode->set("* 「$subject」を送信しました。\n")->euc;
 }
 
 sub next_page {