The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

unlink "xsinit.c";

for (<*.c>, <*.o>) {
    s/\.c//;
    print "removing $_\n";
    unlink $_;
}