c:\perl

##</code><code>##

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

##</code><code>##

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

##</code><code>##

open(GETDIR, "cd |");
while(<GETDIR>)
{
	chomp;
	$currentDir = $_;
}

open(DODIR, "dir /b /s|");
while(<DODIR>)
{
	chomp;
	$pathRemoved = $_;
	$pathRemoved =~ s/$currentDir//i;
	print $pathRemoved;
}