perl 3.0 patch #22 patch #19, continued

[p5sagit/p5-mst-13.2.git] / eg / rmfrom

#!/usr/bin/perl -n

# $Header: rmfrom,v 3.0 89/10/18 15:15:20 lwall Locked $

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

chop; unlink;