Perl display file size question

Hello! I wish to display the filesize next to each file printed in the array below Please note - the 2 array symbols are now an astrisk to allow me to send this email here at rent a coder.... I tried $ENV{'CONTENT_LENGTH'}hoping to do just that but had no luck? I would be gratefull if one of you pro's could help me add this tid bit to my view sub below, so that I may learn what I was mainly doing wrong. Thank you in advance!!! sub viewaudio { print " "; opendir(IMD, $dirtoget2) || die("Cannot open directory"); *thefiles= readdir(IMD); closedir(IMD); print " "; print "

# Uploaded Sound files are

"; foreach $f (*thefiles) { unless ( ($f eq ".") || ($f eq "..")) { print " **[ $f][1]**

"; } } print " [Go Back...][2] "; print "$footer"; print ""; }

## Deliverables

Complete source code of all programming work done

Engineering Linux MySQL Perl PHP Software Architecture Software Testing UNIX

Project ID: #2825237

About the project