#!/opt/local/gnu/bin/perl -w
$tmp = "tmp$$";
foreach $file (@ARGV) {
    system( "gunzip $file" );
    $file =~ s/.gz$//;
    open(FILE, "<$file");
    open(TMP, ">$tmp");
    while (<FILE>) {
        print TMP $_;
        if (/<\/pre>/) {
           writefile(COPYRIGHT, TMP);
        }
    }
    close(TMP);
    system( "mv $tmp $file; gzip $file" );
}
sub writefile {
    my($format, $FILEH) = @_;
    select($FILEH);
    $~ = $format; write($FILEH);
    select(STDOUT);
}
format COPYRIGHT =
&copy; The research materials and data herein are the copyright of the
<a href="http://www.it.uq.edu.au/personal/havas/cdmc.html">
Centre for Discrete Mathematics and Computing</a>,
<a href="http://www.uq.edu.au/">The University of Queensland</a>,
20 December, 1999. They may only be used with the permission of 
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
"<a href = \"mailto:aps\@maths.uq.edu.au\">Professor Anne Penfold Street</a> and"
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
"<a href = \"mailto:gregg\@csee.uq.edu.au\">Dr Greg Gamble</a>."
<hr>
.