MIME::QuotedPrint[::Perl] is not decoding anything

[Adam Wuellner]

The following code, using either MIIME::QuotedPrint or
MIME::QuotedPrint::Perl, does not decode the data.  It returns exactly
what is passed in.

I suspect I must not have properly encoded data?  It arrives this way via email.

Any help appreciated.

- Adam


#!usr/bin/perl
use strict;
use warnings;

use MIME::QuotedPrint::Perl;

while (<DATA>) {
        print decode_qp($_);
}

__DATA__

<

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>