sub RecurseDirs
{ 
    my ($path) = @_;
    my $file;    #Variable for a file

    foreach $path($path){