Select Code to Download

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

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