my $pdfContent = MIME::QuotedPrint::decode_qp(join "", @{ $message->{body}->{data} });
$pdfContent =~ s/\n/\r\n/g;