#!/
usr/local/bin/
perl
my @srcFiles=
grep{!/\.bak$/i && !m{(^|/)CVS(/|$)} &&
-f $_} DfcD::GlobR("Src/*");
...
BEGIN {
{ $0=~/(.*\\)?(.*)\./; print STDERR "$2 version 0.0.2\n\n"; }
for (@
ARGV) { m!^(-/\?|-H|--help)$!i && &help() }
0==@ARGV and &help();
...
bless
/@aCcbPth0,
DfcXxx::Sort keys %hDirs,
sort{
lc $a->name
cmp lc $b->name or $a->name cmp $b->name} values %hNonDirs,
# undef,
,$class;
...