sub PARSE
{
	my $parser = new MIME::Parser;
	$parser->output_to_core(0);
	$parser->output_dir($indir);
  $parser->ignore_errors(1);
  my $ent = $parser->parse_open($mailfile);
  if ($Encoding and !$ent->is_multipart)
	{
    supported MIME::Decoder $Encoding or
		die "unsupported encoding: $Encoding\n";
		$ent->head->mime_attr("Content-transfer-encoding" => $Encoding);
	}
	my $head = MIME::Head->from_file($mailfile);
	$to = $head->get('From', 0);