sub reportStruct(){					
# Provides complete record of all the folders on development site

find(\&procFiles, "$startPath");
my $out=join("\n",@file);

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

print "Reports Created";
}

sub procFiles{
if ($File::Find::name =~/transfer/){
return;
}

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