#!usr/bin/perl
use strict;
use warnings;
use File::Find::Rule;

sub get_files {
    my @dirs = ('/path1/path1', '/path2/path2'); # add more
    my $level = shift // 2; # level to dig into

    my @files = File::Find::Rule->file()
    ->name('*D602BG')
    ->maxdepth($level)
    ->in(@dirs);

    return @files;
}

my @files = get_files();