1#!/usr/local/bin/perl
2#
3# Public domain
4#
5# Remove files specified on input.
6#
7
8foreach my $file (<STDIN>) {
9	chop($file);
10	unlink($file) || print STDERR "Removing $file: $!\n";
11}
12