This sub traversePath ($path) { is wrong. Perl prototypes don't do what you think they do. In fact you never introduce the argument of the function into the function. Do this instead,

use strict;
use warnings;
sub traversePath {
    my $path = shift;
[download]

$path and $npath are unintended globals, which may cause problems. I added strict.pm and warnings.pm to the mix to help you fix up whatever side effects those globals have.

File::Find is part of the core perl distribution, and I think it is silly to not use it for this. You can tell the employer I said so ;-)