(DTPtechNote:404) mail.appからEudora形式でエクスポートした時のSubject文字化け

[市川せうぞー <anonymous at unknown-host>]

mail.appからEudora形式でエクスポートした時のSubject文字化け（base64エンコーディング）
を直します。
出力はリダイレクトしてくらさい。
別途mimer.plが必要です。

#!/usr/bin/perl -w

require 'mimer.pl';
#http://www.cc.rim.or.jp/~ikuta/mime_pls/download.html

foreach $file (@ARGV) {
open (IN , "$file") or die "$file : $!\n" ;

while (<IN>) {
if (/^Subject: /) {
$_ = &mimedecode($_,"")
}
print;
}

close (IN);
}