use strict;
use warnings;
use File::Find;

my $dir = "c:/";
my @files;
# finde alle Dateien mit der Erweiterung
my $muster = '.tmp';

find(\&edits, $dir);

sub edits() {
    if ( $File::Find::name =~ /^$muster$/ ) {
        push(@files, $_);
    return;
}
print "@files";