commit for archiving
This commit is contained in:
8
Perl/bin/encode-qp
Normal file
8
Perl/bin/encode-qp
Normal file
@@ -0,0 +1,8 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use MIME::QuotedPrint qw(encode_qp);
|
||||
|
||||
while (<>) {
|
||||
print encode_qp($_);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user