Current File : //proc/self/root/kunden/usr/share/doc/perl-Filter/examples/filtuu

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