#!/usr/bin/perl

# lists files by size in cwd and down
# Sean Brunnock

use File::Find;

find(sub {$size{$File::Find::name} = -s if -f}, '.');

@sorted = sort {$size{$b} <=> $size{$a}} keys %size;

printf "%10d %s\n", $size{$_}, $_ for (@sorted);