#!/usr/local/bin/perl
use warnings;
use strict;



my $dir= 'c:\My documents\perl scripts\new folder';

my $directory_count=0;
my $file_count=0;


my $outfile = 'log.txt';

open my $OUTF, '>', $outfile or die "can't create logfile;$!";

opendir (DIR, $dir);
my @files = readdir(DIR);

foreach my $files(@files) 
{
 print {$OUTF}"$files |";}
 
 foreach my $file(@files) {

  if (-d "$dir/$file") {
      $directory_count++;
     }
     
     else {
     
     $file_count++;
     
    }
    }
   
          
print { $OUTF} "$directory_count |";
#print  { $OUTF}   "$file_count \n";