#!/usr/bin/perl -n

# $FreeBSD: stable/2.1/gnu/usr.bin/perl/eg/rmfrom 50952 1999-09-05 11:54:50Z peter $

# A handy (but dangerous) script to put after a find ... -print.

chop; unlink;
