A Perl script to find the largest files in the given directories. See http://www.reddit.com/r/perl/comments/1kcfy1/largest_morning_challenge_to_you_all_improve_this/ for more information.

largest

#!/usr/bin/perl
use warnings;
use strict;
use File::Find;

if ($#ARGV < 1) {
  die "Usage: $0 <count> <dir> [dir ...]\n";
}

my $count = shift @ARGV;

my %size;
find(sub { $size{$File::Find::name} = -s if -f; }, @ARGV);
my @sorted = reverse sort { $size{$a} <=> $size{$b} } keys %size;

if (@sorted > $count) {
    splice @sorted, $count;
}

my @units = (' ', qw{ K M G T });
for (@sorted) {
    my $u = int( log($size{$_}) / log(1024) );
    printf "%7.2f %sB %s\n", $size{$_}/1024**$u, $units[$u], $_;
}