use File::Find::Rule;

for(find(file => name => "*.txt", in => "your_dir_here")) {
  ## do stuff here
}