Я преобразование Линукса скрипта http://www.perlmonks.org/index.pl?node_id=217166 конкретно это: #!/usr/bin/perl -w
use strict;
use Getopt::Std;
use File::Find;
@ARGV > 0 and getopts('a:', \my %o
Как вы проходите дерево каталогов на своем любимом языке? Что вам нужно знать, чтобы пересечь дерево каталогов в разных операционных системах? В разных файловых системах? Ваша любимая библиотека/модул