my $root = rel2abs (shift || '.');

##</code><code>##

my @extList = @ARGV;
  
@extList = ('pl', 'pm') if ! exists $extList[0];

##</code><code>##

my @extList = @ARGV ? @ARGV : qw/pl pm/;

##</code><code>##

my $lines = 0;
my $files = 0;

##</code><code>##

my ($lines, $files); # is clear enough

##</code><code>##

sub count
{
my $name = $File::Find::name;
return if -d $name;

##</code><code>##

my ($ext) = $name =~ /\.([^.]*)$/;
return if ! defined $ext or ! exists $exts{$ext};

##</code><code>##

return if grep $name =~ /\.\Q$_$/, @extList;

##</code><code>##

return if ! open inFile, '<', $name;

##</code><code>##

open my $in, '<', $name or  # and I don't need close()
   (warn "Ouch: $name => $!\n"), return; 

##</code><code>##

++$lines while (<inFile>);

##</code><code>##

$lines+=<$in>;