use File::Find;
find(sub{print $File::Find::name}, ".");