Select Code to Download

        my @parts = split /\\/, $path;

        my $scan = \%pTree;

        $scan = $scan->{shift @parts} ||= {} while @parts;