print "$dir\n";
my $dir = join "\\", @path[0,1,2,3,4,5,6];
[download]

Looks to me like you are using $dir before you create it. Also what happens if you hit a directory like:

h:\one\two\three\for\five\six\seven\eight
[download]

with your script? do you mean to truncate at that point?

-Waswas