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 

##</code><code>##

 
push @txts,$File::Find::name;; 

##</code><code>##

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