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, '…