#!/usr/bin/perl -w

# count files in a directory

# Eric Hendrickson

# $Id: filecnt,v 1.1.1.1 2005/08/04 21:14:53 edh Exp $	

# To Do:
# o make recursive

use strict;
use File::Basename;
use Getopt::Long;

(my $prog = $0) =~ s,.*/,,;

my $usage = "usage: $prog [--verbose] [--recursive]\n";

# configurable options
my ($debug, $help, $recursive, $verbose);
GetOptions("debug" => \$debug,
	   "help" => \$help,
	   "recursive" => \$recursive,
	   "verbose" => \$verbose
	  ) or die $usage;

die $usage if $help;

push @ARGV, "." unless @ARGV;

foreach (@ARGV) {
  next unless -d;
  opendir DIR, $_;
  print "$_ " if $verbose;
  print scalar (grep !/^\.\.?$/, readdir DIR), "\n";
  close DIR;
}