BSD 4_4_Lite2 development

[unix-history] / usr / src / contrib / perl-4.036 / eg / rmfrom

#!/usr/bin/perl -n

# $Header: rmfrom,v 4.0 91/03/20 01:12:02 lwall Locked $

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

chop; unlink;