Select Code to Download

sub Traverse {
    my $dir = shift;
...
    }
    closedir $dh;
}

sub ProcessFile {
    my ( $path, $windows ) = @_;
...
    close $fh;
    $pid and waitpid $pid,0;
}