my $md5file     = md5_hex($date);
   my $workpath    = "/var/lib/pler";
   my $date        = UnixDate("today","%b %e, %Y at %T");
   my $parser      = new MIME::Parser;

   $parser->output_dir("$workpath");
   $parser->output_prefix("$md5file");
   my $filer       = $parser->filer;
   $filer->ignore_filename(0);
   my $entity      = $parser->read(\*STDIN);