#!/usr/bin/perl

use MIME::Parser;
srand;

$parser = new MIME::Parser;
$foldername = time().int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
mkdir("/var/smtp/my/recv/".$foldername);
$parser->output_dir("/var/smtp/my/recv/".$foldername);
$parser->tmp_dir("/var/smtp/tmp");
eval{$parser->parse(\*STDIN);};