#!/usr/bin/perl
$^I = ".bak" ;

while (<>) {
  if (/<.body>/) {
    print<<EOT;
<a href="/cgi-bin/bizedit.pl">Edit this page</a>
EOT
  } 
  print "$_";
}