my $decoder = new MIME::Decoder 'quoted-printable' or warn "\nunsupported\n"; open (TEMP, ">/tmp/$$") or warn "\ncan't open /tmp/$$ for writing"; $decoder->decode(\*MSG, \*TEMP);