use strict;
$newfile = "./";
my $ct=0;
opendir(DIR,$newfile) || die "Can not open directory: $!";
my @files =  readdir(DIR);
foreach(@files){
$ct++;
}
close(DIR);