sub recurse_dir {
  my $dir=shift;
  my @files;
  find { wanted=> sub {push @files,$_ unless -d $_}, no_chdir=>1},$dir;
  return @dirs;
}