+#!/usr/bin/perl -w
+$o= '';
+for (;;) {
+ exit 0 unless defined ($_= <STDIN>);
+ $o .= $_;
+ last if / \-\-\-8\<\-\-\- end of documentation /;
+}
+($before, $_, $after)= @ARGV;
+s,.*/,,;
+$of= $before.$_.$after;
+open F, "> $of" or die $!;
+print F $o or die $!;
+close F or die $!;
+print " wrote $of\n" or die $!;