#!/usr/bin/perl open (f, "register"); @reg=; close (f); $arv=@reg; # Olemasolevate foorumite arv $jrk=$arv+1; print "Content-type:text/html\n\n"; print ""; print ""; print ""; print ""; print "";

Alusta uut teemat"; print "

Aktiivsed teemad: ($arv)

"; for ($i=$arv-1; $i>=0; $i--) { @teema=split(/;/, $reg[$i]); print ""; print ""; print ""; } print "

Teema	Alustas	Alustusaeg	Kirjade arv	Viimane kiri
$teema[1]	$teema[2]	$teema[3]	$teema[4]	$teema[5]