Select Code to Download

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

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

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

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

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

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

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

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

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

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

++$lines while (<inFile>);

$lines+=<$in>;