Script PERL : Totals File in a Directory

This is a simple script to show total number of Files in a directory.

Script accepts in input one argument : Directory.

$totfile = 0;

opendir(my $dh, $ARGV[0]) || die;

while(readdir $dh) {

print "$some_dir/$_\n";

$totfile++;

}

closedir $dh;

printf(" Tot Files : $totfile \n");

Stay Connected.