[perl5.git] / eg / rmfrom

#!/usr/bin/perl -n

# $RCSfile: rmfrom,v $$Revision: 4.1 $$Date: 92/08/07 17:20:31 $

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

chop; unlink;
Commit	Line	Data
378cc40b LW	1	#!/usr/bin/perl -n
378cc40b LW	2
79072805	3	# $RCSfile: rmfrom,v $$Revision: 4.1 $$Date: 92/08/07 17:20:31 $
378cc40b LW	4
	5	# A handy (but dangerous) script to put after a find ... -print.
	6
	7	chop; unlink;