Select Code to Download

c:\perl

c:\perl\bin\aa.exe
c:\perl\doc\bb.txt
c:\perl\web\index.html

bin\aa.exe
doc\bb.txt
web\index.html

open(GETDIR, "cd |");
while(<GETDIR>)
...
    $pathRemoved =~ s/$currentDir//i;
    print $pathRemoved;
}