use File::Find;

my($ct, @data) = (0,());

sub fetcher
{
    if( $_ =~ /\.pl?$/) {
        my $name = $File::Find::name;
        open ( F, $name ) or die "$!: $name\n";
        my @lines = <F>;
        close(F);
        my @matches = grep(/^use/, @lines);
        push(@data, @matches);
        $ct += scalar(@matches);
    }
}
find( {wanted => \&fetcher, no_chdir => 1, }, "."  );

print "\n\nTotal Count = $ct\n\n";
print @data;
__END__


Total Count = 8


use strict;
use WWW::Search::Tv::German::Tvtoday 1.02;
use File::Find;
use File::Basename;
use HTML::TokeParser;
use LWP::Simple;
use LWP::Simple;
use Net::POP3;