use File::Find; find(\&eachfile, "/data/");