use strict; use warnings; #https://www.perlmonks.org/?node_id=1160177 use Storable qw(store retrieve freeze thaw dclone); my $meta = retrieve('C:/Perl/cpan/Metadata'); die "Unable to retrieve from meta!\n" unless defined $meta; #print 'Keys:',join(' ',keys(%$meta)),"\n"; my @wanted; for my $mod (keys(%{$meta->{'CPAN::Module'}})) { next unless ($mod=~m/^Tk/); push @wanted,$mod; } for my $mod (sort @wanted){ print 'cpan -i ' ,$mod,"\n"; } exit;