#!/usr/bin/perl

use MIME::Parser;
use MIME::Parser::Filer;

my $tempdir = "extract";
( -d $tempdir) or mkdir $tempdir, 0755 or die "mkdir: $!";

my $parser = new MIME:arser;

$parser->output_under("/home/uxbod/extract");
$parser->extract_uuencode(1);
$entity = $parser->parse_open("/home/uxbod/testmessage");

foreach my $part ($entity->parts_DFS) {

  next if (!$part->bodyhandle);

  my $rec_filename = $part->head->recommended_filename;
  my $filename = $part->bodyhandle->path;
  print "Recommended: $rec_filename Alternative : $filename\n";
}

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

##</code><code>##

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