<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">open(IN,"&lt;crypt.ind");
open(OUT,"&gt;crypt.ind.tmp");
$a = &lt;IN&gt;;
print OUT  "$a\n\\addcontentsline{toc}{chapter}{Index}\n";
while (&lt;IN&gt;) {
   print OUT $_;
}
close OUT;
close IN;
system("mv -f crypt.ind.tmp crypt.ind");

</pre></body></html>