Select Code to Download

 Directory of E:\DOM\D2\HDD\IN11-135

...
11/21/2010  05:02 AM     1,572,684,462 IN11-135.E11
11/21/2010  05:02 AM     1,556,456,660 IN11-135.E12
              13 File(s) 18,856,584,346 bytes

 100     File name 1
1000     File name 2
 100     File name 3
Total files: 3  Average file size: 400 bytes

#!/usr/bin/perl

...
# ============
print "$filesize    $filename\n";            # print output to screenn
print "Total Files: $i  Avg Size: $averagefilesize\n\n";