$head1 = < Counsel.Lit reference # END $head2 = <<END;

Counsel.Lit reference # END $head3 = "

"; $tail = < File created using Perl script: convert.prl written by Chris Evans C.Evans\@sghms.ac.uk

use the "BACK" function in your browser to go back
statistics on use of Counsel.Lit
search again
psychotherapy pages intro.
S.G.H.M.S. main WWW pages

END open (INP,"all.pbs"); while () { s/\/\// /g; s/^"\w","(\d*)","//; $n = $1; s/","/

/g; print "$n\n"; open (OUT,">html/$n.htm"); print OUT $head1; print OUT $n; print OUT $head2; print OUT $n; print OUT $head3; print OUT; print OUT $tail; close (OUT); }