#!/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 $!;
