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

##</code><code>##

my @argv=map { -d $_ ? recurse_dir($_) : $_ } @ARGV;