use File::Find::Rule qw/ find rule /;
my @files = find( name => '*.tar', in => $dir );