メモ

use strict;
use warnings;

use File::Find::Iterator;
use IO::File;

my $itr = File::Find::Iterator->create(
    dir => ['C:/Perl/site/lib/ppm-conf'],
    filter => sub { -f and /\.pkg$/ },
);

while (my $f = $itr->next) {
    my $fh = IO::File->new($f, '<');
    while (<$fh>) {
        next if $_ !~ /^LOCATION/;
        print "$f $_" if $_ !~ m{http://127.0.0.1:8888/ppm/};
    }
}