my $decoder = new MIME::Decoder 'quoted-printable' or warn "\nunsupported\n";