use File::Find::Rule;

my $cnt = find(
  file     =>
  name     => "*.txt",
  maxdepth => 1,
  in       => "/home/a"
);