use File::Find::Rule;
my $rule = File::Find::Rule->new;
$rule->file;
$rule->name( '*.tmp' );
$rule->start($startdir);
while (my $file = $rule->match) {
  print "$file\n";
}