#! perl
use strict;
use warnings;

opendir D1, ...;

print "$_\n" for map  { sprintf qq[%s: %d], $_, -s $_ // 0 }
                 sort { (-s $a // 0) <=> (-s $b // 0) }
                 grep { ! -d }
                 readdir D1;