Displaying filesize in PERL

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 { opendir(IMD, $dirtoget2) || die("Cannot open directory"); *thefiles= readdir(IMD); closedir(IMD); foreach $f (*thefiles) { unless ( ($f eq ".") || ($f eq "..")) { print "$f"; } } print "$footer"; }

## Deliverables

Complete source code of all programming work done

Engineering Linux MySQL Perl PHP Software Architecture Software Testing UNIX

Project ID: #2825314

About the project