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

$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";