Select Code to Download

--00000000000076fecc057dd5edea--
--00000000000076fece057dd5edec
...
Content-Transfer-Encoding: base64
Content-ID: <167836db7a888894ca51>
X-Attachment-Id: 167836db7a888894ca51

#!perl

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

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