Australian Personal Computer 2004 July/APC0407D2.iso/workshop/apache/files/ActivePerl-5.6.1.638-MSWin32-x86.msi/_66c1708d65e763cec9ce4885536fb2bf

Text File | 2004-04-13 | 104 b | 9 lines

#!/usr/bin/perl

use MIME::QuotedPrint qw(decode_qp);

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