Select Code to Download

sub find_temp{ 
  my $dir=shift; 
...
    , $dir.'/tmp/');
  return \@txts ;   
  } # find temp

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

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