encode-qp
[
plain text
]
#!/usr/bin/perl
use
MIME::QuotedPrint
qw
(encode_qp);
while
(<>) {
print
encode_qp($_); }