find sub{print $_,"\n"}, "./"