1 files changed, 7 insertions, 0 deletions
diff --git a/contrib/perl5/eg/rmfrom b/contrib/perl5/eg/rmfrom
new file mode 100644
index 0000000..7178e77
--- /dev/null
+++ b/contrib/perl5/eg/rmfrom
@@ -0,0 +1,7 @@
+#!/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;