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