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

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