1@perl -w -Sx %0 %*
2@goto end_of_perl
3#!perl -w
4BEGIN { push(@INC,'lib') }
5use strict;
6use File::Find;
7use ExtUtils::Manifest qw(maniread);
8my $files = maniread();
9my %files;
10foreach (keys %$files)
11 {
12  $files{lc($_)} = $files->{$_};
13 } 
14
15my @dead;
16find(sub { 
17 return if -d $_;
18 my $name = $File::Find::name;
19 $name =~ s#^\./##;
20 unless (exists $files{lc($name)})
21  {
22   # print "new $name\n";
23   push(@dead,$name);
24  } 
25},'.');
26
27foreach my $file (@dead)
28 {
29  chmod(0666,$file) unless -w $file;
30  unlink($file) || warn "Cannot delete $file:$!";
31 }
32
33__END__
34:end_of_perl
35del perl.exe
36del perl*.dll