se strict;
use warnings;
my $x = <STDIN>;

foreach my $x ( sort glob('$x/*') ) {
my($dev,$ino,$m ode,$nlink,$uid ,$gid,$rdev,$si ze,$atime,$mtim e,$ctime,$blksi ze,$blocks)
= stat($x);
printf("%-40s %8u bytes\n", $x, $size);
}