#!/afs/athena/contrib/perl5/p

opendir(DIR, ".");

print scalar(grep(/\.pl$/, readdir(DIR))),"\n";
