#!/usr/bin/perl -w
use strict;
my $dir = $ARGV[0] || ".";

opendir my $dh, $dir or die "Could not open '$dir'\n";
my $c =0;
$c++ while readdir $dh;
print "$c\n";