find(\&procFiles, "$dir");

open ($fh, ">", "siteFull.txt");
print $fh @file;
close ($fh);

print "all done";

sub procFiles{
if (-d){
push(@file, "--> DIRECTORY ".$File::Find::name."\n");
}
if (-f){
push (@file, $File::Find::name."\n");
}
}