3 use ExtUtils::Packlist;
4 use ExtUtils::Installed;
6 $ARGV[0] or die "Usage: $0 Module::Name\n";
10 my $inst = ExtUtils::Installed->new();
12 foreach my $item (sort($inst->files($mod))) {
13 print "removing $item\n";
17 my $packfile = $inst->packlist($mod)->packlist_file();
18 print "removing $packfile\n";