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