my @stack = ".";
while(my $cd = pop @stack) {
    opendir(my $dh, $cd) or die("bad dir - $!");
    foreach (readdir($dh)) {
        next if /^\./;
        print $_.$/;
        push @stack, "$cd/$_" if -d "$cd/$_";
    }
}