#!/usr/bin/perl
#
use strict;

opendir D, "$ARGV[0]" or die "$!";



sub siz {
	my $f = shift;
	my @s = stat($f);
	return $s[7];
	my $size = sprintf "%20d", $s[7];
	return sprintf("%20d", $s[7]);
}

my @sorted = map {$_->[0]}
						 sort { $a->[1] <=> $b->[1] }
						 map {[ $_, -s "$ARGV[0]/$_"]}
						 readdir D;

						
foreach (@sorted) {
	printf "%-40.40s %d\n", $_, -s "$ARGV[0]/$_";
}