#!/usr/bin/perl -w
use strict;
use warnings;

my $dir="/your/dir/name";
my $file;
my @files;

opendir (DIR, "$dir");
while ($file = readdir(DIR)) {
    push (@files, $file);
     }
    @files = sort {$a cmp $b} @files;   
    foreach $file (@files) {
        print "$file\n";
    }
        {
         my @files = <$dir/*>;
         my $count = @files;
         print "Number of files $count \n";
        }