#!/usr/bin/perl
use strict;
my $dir = "*****";
my $directory_count = 0;
my $file_count=0;
opendir(DIR, $dir);
LINE: while(my $FILE = readdir(DIR)) {
next LINE if($FILE =~ /^\.\.?/);
if(-d $FILE){
$directory_count++;
}
else {
$file_count++;
}
}
closedir(DIR);
print "Directories: $directory_count\n";
print "Files: $file_count\n";
exit;