i tend to use a construct like this

sub find_temp{ 
  my $dir=shift; 
  my @txts; 

  find( 
     sub {
          return unless (-f $File::Find::name);  
          push @txts,$File::Find::name;; 
          }
    , $dir.'/tmp/');
  return \@txts ;   
  } # find temp
[download]

these days, since i want to use the list later. in this case i might change

 
push @txts,$File::Find::name;;
[download]

to

push @txts,[$File::Find::name,  -C _,  -M _, -A _];
[download]

even if @txts is a bad name for it now. I knew the only thing in those dirs were .txt files and subdirs