sub get_files {
    my (@dirs) = @_;

    my $level = shift // 3; # level to dig into
    my @files = File::Find::Rule->file()
    ->name( '*.bz2' ) #can insert regex too
    ->maxdepth($level)
    ->in(@dirs);
	
    return @files;
}