
 my @h = '';
  my $h = '';

  sysopen (HTML, "/root/bin/KnowledgeBase/update/$code.html", O_RDONLY, 0600) or die "can not read: $!";
  
  @h = <HTML>;

  close (HTML);
  
  foreach $h (@h) {

    $browser->form_number(1);
    $browser->field('wikitext', $h);
  }
  
  $browser->click('do[save]') or die "can not send:\n $!";
}