9 lines
104 B
Perl
9 lines
104 B
Perl
#!/usr/bin/perl
|
|
|
|
use MIME::QuotedPrint qw(encode_qp);
|
|
|
|
while (<>) {
|
|
print encode_qp($_);
|
|
}
|
|
|