Select Code to Download

Select or download this

#!/usr/bin/perl

use MIME::Parser;
...

$parser->filer->purge;
rmtree $tempdir;

Select or download this

[uxbod@gateway ~]# ./testextract.pl
ignoring text in character set `GB2312'
 at /usr/share/perl5/MIME/Parser/Filer.pm line 659
...
 at /usr/share/perl5/MIME/Parser/Filer.pm line 659
Recommended: =?gb2312?B?MzYw0MLOxbzgsuItMTItMDEtQ2hpIFNpbXAudHh0?= Alt
+ernative : /home/uxbod/extract/msg-1321526988-4755-0/1
Recommended: =?gb2312?B?MzYw0MLChLFPnHktMTItMDEtQ2hpIFRyYWQudHh0?= Alt
+ernative : /home/uxbod/extract/msg-1321526988-4755-0/1-1