#! /usr/bin/perl
use strict;
use warnings;
use 5.010;

use File::Find::Rule;

my @dirs = File::Find::Rule->directory()        # finde Verzeichnisse
                           ->name("*.rec")      # die diesem Namensmuster entsprechen
                           ->in(".")            # in dem genannten Verzeichnis
;

# zeige die Treffer
say $_ for @dirs;