old/PAS/!SPbSTU/Win2k2/lines.pl

opendir($DIR,'.');
@PASs = grep {/\.pas/i} readdir($DIR);
$tot = 0;
foreach $pas (@PASs)
{
 open ($F,$pas);
 while (<$F>) {$tot++};
 close ($F);
}
print "Total lines in *.pas - $tot\n";