use strict;
    use warnings;

    my $directory = 'My directory';
	my $file_count=0;

    opendir (DIR, $directory) or die $!;
	
	   while (my $file = readdir(DIR)) {


if( $file){
$file_count++;
}

}
closedir(DIR);

print "Files: $file_count\n";