--00000000000076fecc057dd5edea--
--00000000000076fece057dd5edec
Content-Type: application/pdf; name="=?UTF-8?B?157Xmdec15kg15PXkNeR15XXqi5wZGY=?="
Content-Disposition: attachment; filename="=?UTF-8?B?157Xmdec15kg15PXkNeR15XXqi5wZGY=?="
Content-Transfer-Encoding: base64
Content-ID: <167836db7a888894ca51>
X-Attachment-Id: 167836db7a888894ca51

##</code><code>##

#!perl

use Email::MIME;
$file = shift || "g";
open G, $file; $g = join '', <G>; close G;
$e = new Email::MIME ($g);

##</code><code>##

perl -pe 's/name=".*"/name="fn.pdf"/g' g >g2
./chfn.pl g2