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