Select Code to Download

#!/usr/bin/perl

...
my $files = 0;

push(@dirs, $dir_init);

foreach my $directory (@dirs) {
    opendir (DIR, $directory) or die ("Can't open dir: '$directory'.\n
+Reason: $!");
...
    $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
    return scalar reverse $text;
}

perl fszTop10.pl /u2/integ 10

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Total number of files examined: 2331
...
2,561
        /u2/integ/t096351/.Xauthority
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~