Sorry, code error =( try this version:
#!perl -w
my $pwd = `pwd`; my $target; my $dir = ''; my @targets = split(/\//,$pwd); my $index = $#targets -1;
system("ls -Adl $pwd"); foreach $target (@targets) { $dir .= $target . "/"; system("ls -Adl $dir"); last unless $index--; }
__END__
-- WC (Bill) Jones -- http://youve-reached-the.endoftheinternet.org/ -- DokuWiki mailing list - more info at http://wiki.splitbrain.org/wiki:mailinglist