if ($code =~ /quoted-printable/i)
{
  print "printing $num to c:\\$filename\n";
  open(K, ">c:\\$filename");
  binmode(K); #not sure when to use this, seems to be necessary for pdf attachments
  print K MIME::QuotedPrint::decode_qp(join "", @{ $message->{body}->{data} });
  close K;
}