use File::Find;
use Time::localtime;
$now = ctime();

my @dirs = @ARGV or die "No valid directory argument(s)";
find( sub{ m/\.sgml$/ and push @files,"$File::Find::name" and print "$File::Find::name\n";}, @dirs, );

$fileCount=@files;

print "\nThere are $fileCount files here.\n";

$then = ctime();

print $now;
print "\n";
print $then;