print "Content-Type: text/html\n\n";
print $header->output;
while($ref = $sth->fetchrow_hashref()) {
  $subtemplate->param(
    [ THIS_LOOP =>
      { ZENSUR => $ref->{word},
        ERSATZ => $ref->{replacement},
        ANZEIGE => 1,
        FORMULAR => 0,
      },
    ],
  );
} 
$content = $subtemplate->output();
$template->param(CONTENT => $content);
print $template->output;
print $footer->output;
exit;