Re: How do I remove current path from a dir listing

[t0mas]

use strict;
use File::Find;
use Cwd;

my $startDir=getcwd;

find(sub {printf "%s\n", substr((split($startDir,$File::Find::name))[1
+],1) if ($File::Find::name ne $startDir);}, $startDir);

/brother t0mas