#!/usr/bin/perl
# linux only or change slash type
use warnings;
use strict;
use File::Find;
use File::Spec;

if (@ARGV < 2){print "Usage: $0 dir depth\n";exit}
my ($path, $depth)= @ARGV;

my $abs_path = File::Spec->rel2abs($path); # if  .  for dir 
my $m = ($abs_path) =~ tr!/!!;  #count slashes in top path 

find (\&found,$abs_path);
exit;

sub found{
 my $n = ($File::Find::name) =~ tr!/!!; #count slashes in file 
   return $File::Find::prune = 1 if $n > ($m + $depth);
   # do stuff here. 
   #print "$_\n";                #name only 
   print "$File::Find::name\n";  #name with full path 
}
[download]