use File::Find;
find(sub{ print $File::Find::name; }, '/');