#!/usr/bin/perl -w
use strict;
use CGI qw/:standard *table start_ul/;
use Time::localtime;
use Net::SMTP;
use DBI;

print header(-charset=>'koi8-r'),
        start_html(-title=>'уПЪДБОЙЕ РТПЖЙМС РПМШЪПЧБФЕМС',
			-style=>{'src'=>'/kping_tst_zone/reg_frm.css'}
		);