use strict;

local *DIR;
opendir(DIR, '.') or die "Failed to open: $!\n";

my $file;

while (defined($file = readdir(DIR)))
{
    print "$file: ", (stat($file))[7], "\n";
}

closedir(DIR);

.: 16384
..: 8192
12810005141553.zip: 971956
12810005141553_log.txt: 228
12820005141551_log.txt: 228
200310271800.xml: 48819126
200310291515.xml: 612137
nasimage.zip: 41993313
newoutfits.zip: 412923
PDLnewitems_v2.txt: 1163863
plm_logo_82x27.gif: 1182
price.zip: 1686002
prod_summary.txt: 10587
reconcile.xls: 21956096
relation_summary.txt: 86904
rob_resume.doc: 26624
shipped_20031030.xls: 56832
uo.gif: 549