Shell File Manager

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