use strict;

my $newfile = "./";

opendir(DIR,$newfile);
my @files = readdir(DIR);
close(DIR);
my $ct = 0;
chdir ($newfile) || die "Could not change to $newfile directory\n$!\n";
print "Total count = $ct\n\n";
for(@files) 
{
  print "$_\n";
  $ct++
}    
print "\nTotal count = $ct\n";