Current File : //usr/share/doc/perl-Filter/examples/filtuu

print "use Filter::UUdecode ;\n" ;
while (<>) {
    print pack("u", $_) ;
}