my $emailfile = basename("$email");
my $tmpdir = "/tmp/$emailfile";
mkdir "$tmpdir";

my $parser = MIME::Parser->new();
$parser->decode_headers(1);
$parser->output_dir("$tmpdir");

my $message = $parser->parse_open("$email");