my $fname = $_;
        if (-f $fname) {
            foreach my $type (qw(pl pm)) {
                my (undef, $ext) = split (/\./, $fname);
                if (defined($ext) && $ext eq $type) {
                    push(@files, $File::Find::name);
                }
            }
        }

##</code><code>##

        my $fname = $_;
        if (-f $fname && /\.p(l|m)$/) {
            push(@files, $File::Find::name);
        }