use MIME::Parser;


$mailfile = "$mailspool/[username]";

  $parser = new MIME::Parser;
  $head = new MIME::Head;

open(IN, "$mailfile");
$parser->output_under("$basedir/INCOMING");
$entity = $parser->parse(\*IN);