open (TEXTFILE, ">$subdir/message.txt")
     or die "Can't create $subdir message file: $!";
  print TEXTFILE "From: ", $doc->{From}->[0];
  print TEXTFILE "Subject: ", $doc->{Subject}->[0];
  $doc->{Body} =~ s/\015/\n/gm;
  print TEXTFILE $doc->{Body};
  close TEXTFILE;