foreach my $directory (@dirs) {
    opendir (DIR, $directory) or die ("Can't open dir: '$directory'.\n
+Reason: $!");
    @ls = readdir(DIR);
    closedir (DIR);

    FILE: foreach my $file (@ls)
    {
        next if ($file =~ m/^\.\.?$/);
        $files++;
        SWITCH:
        {
            if (-d "$directory/$file") {
                push(@dirs, "$directory/$file");
                last SWITCH;
            }
            if (-l "$directory/$file") {
                last SWITCH;
            }
            if (-f "$directory/$file") {
                $size = (-s "$directory/$file");
                if ($size >= $min_size) {
                    push (@{$top{$size}}, "$directory/$file");
                    if ($size > $min_size && scalar(keys %top) > $top_
+n) {
                        ($obsolete_size,$min_size)  = (sort {$a <=> $b
+} keys %top)[0,1];
                        delete($top{$obsolete_size});
                    }
                }
                last SWITCH;
            }
            else
            {
                print "\n$file\tis of UNKNOWN type";
            }
        }
    }
}

print $sep . "\n";
print "Total number of files examined: $files\n";
print $sep . "\n";
print "List of top " . $top_n . " sized files within " . $dir_init . "
+ :\n";

foreach my $k (sort {$b <=> $a} keys %top)
{
    print delim1000($k) . "\n";
    foreach (@{$top{$k}}) {
        print "\t$_\n";
    }
}
print $sep . "\n";

sub delim1000 {
    my $text = reverse $_[0];
    $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
    return scalar reverse $text;
}
[download]