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;
}

##</code><code>##

%PDF-1.2
%ßÜÂÞ - Business Objects
1 0 obj
<<
/Type /Pages
/Count 1
/Kids [ 4 0 R ]
>>
endobj
2 0 obj
<<
/CreationDate (D:20030206205259Z)
/ModDate (D:20030206205259Z)

##</code><code>##

%PDF-1.2
%ßÜÂÞ - Business Objects
1 0 obj
<<
/Type /Pages
/Count 17
/Kids [ 4 0 R 5 0 R 6 0 R 7 0 R 8 0 R 9 0 R 10 0 R 11 0 R 12 0 R 13 0 R 14 0 R 15 0 R 16 0 R 17 0 R 18 0 R 19 0 R 20 0 R ]
>>
endobj
2 0 obj
<<
/CreationDate (D:20030206205456Z)
/ModDate (D:20030206205456Z)