find (\&checkfor, "D:/DOWNLOAD/DISTRBTN/I01/");
sub checkfor {
    if (-f $_) { print $File::Find::name."\n" };
}