#!/usr/bin/perl -w

use strict;
use File::Find;

my $MeinVerzeichnis = "/raid5";
my $MeinDateiNamePattern = ".rec";

sub match {print "$_\n" if /$MeinDateiNamePattern/}

find {wanted => \&match, no_chdir => 1}, $MeinVerzeichnis;