#!/usr/bin/perl -w

opendir( DIR, $ARGV[0] ) || die "canot open $ARGV[0] ($!)\n";
map { $cnt++ unless /^\./ } readdir( DIR );
closedir( DIR );
print $cnt, "\n";