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