#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use File::DirWalk;

my $dir = '/usr/local/lib';
my $dw = new File::DirWalk;
$dw->onDirEnter(sub {
         my ($dir) = @_;
         print "$dir\n";

         return File::DirWalk::SUCCESS;
});

$dw->setDepth(3);
$dw->walk($dir);