list_direcrory.pl

use strict;
use warnings;
use File::Basename;


list_direcrory(shift, 1);

sub list_direcrory {
    my ($root, $c) = @_;

    for my $f (glob "$root/*"){
        my $bn = basename($f);

        if (-d $f and !-l $f) {
            print "D", $c, " " x $c, $bn, "\n";
            list_direcrory($f, $c + 1);
        }
        else {
            print "L", $c, " " x $c, $bn, "\n";
        }
    }
}

__END__

quick & dirty script; in conjunction with `grep`:

./list_direcrory.pl . | grep tests.py$ | grep ^L3