#!c:/perl/bin/perl.exe
use warnings;
use strict;
use diagnostics;


my $directory = "C:/Windows";

my $no_files = 0;
my $no_dirs = 0;