How to make a PERL script list number opf files in a directory?