Here is how is works:

sub GetListing {
    my $parent = shift;
    my $file;
    my @globfiles;
    my $filename ="junk.dbf" # or you can put your file name here.
    #print "\nFor directory \"$parent\"\n";
 
        chdir($parent);
        my @globfiles = <*>;
 
        foreach $file (@globfiles) {
                if (-f $file) {
                        if ($file =~ /$filename/) {
                                print "DBF file/s : $parent\/$file\n";
                        }
                }
                elsif (-d $file) {
                         GetListing ("$parent/$file");
                        
                }
        chdir($parent);
        }
}
 
 
Ghana shyam.