use CGI - generowanie stron (start_html)???

[Efraim]

Witam mam zapytanie,
mój skrypt ma czytac informacje zawarte w formularzu i
zapisywac je do pliku, po czym generowac strone z informacjami o
popelnionych bledach w formularzu badz powodzeniu rejestracji.
Skrypt tworzy LOGFILE z danymi wprowadzonymi w formularzu lecz,
nie generuje stronki z potwierdzeniem.
W moim edytorze perla po uruchomieniu skryptu pojawia się komunikat:

Cant locate object method "start_html" via package "obiektCGI" at...
print obiektCGI->start_html('WoW'); lub print obiektCGI->h2 i inne

moj skrypt:

#!/cgi-bin/perl/bin/perl
use CGI;
$obiektCGI=new CGI;
$uzytkownik=$obiektCGI->param("uzytkownik");
$email=$obiektCGI->param("email");
$wiek=$obiektCGI->param("wiek");
print $obiektCGI->header(-charset=>'iso-8859-2');
if (&sprawdzDane())
{&zapiszDane()}
else
{&bladDanych()}
sub sprawdzDane()
{
$blednePola="";
$formularzPoprawny=1;
$polePoprawne=$uzytkownik=~/^[a-zA-Z]+$/;
unless ($polePoprawne)
{
$blednePola.="Uzytkownik, ";
$formularzPoprawny=1;
}
$polePoprawne=$email=~/[a-zA-Z\-]+\@[a-zA-Z\-]+\.[a-zA-Z\-]+/;
unless ($polePoprawne)
{
$blednePola.="Email, ";
$formularzPoprawny=1;
}
return $formularzPoprawny
}
sub bladDanych()
{
chop($blednePola);
print obiektCGI->start_html(
-TITLE=>"Problem z rejestracją",
-BGCOLOR=>"white");
print $obiektCGI->h2(
"Następujące Pola zle:<BR>");
print obiektCGI->h3("$blednePola<BR>");
print "Wróc i popraw";
print obiektCGI->end_html();
}
sub zapiszDane()
{
unless (open(LOGFILE,">>rejestr.log"))
{
print "Wystapily problemy pry otwieraniu";
exit;
}
seek(LOGFILE, 0, 2);
print LOGFILE "$uzytkownik\t\t\t$email\t\t\t$wiek\n";
unless (close(LOGFILE))
{
print "Blad przy zamykaniu";
exit;
}
print obiektCGI->start_html('WoW');
print obiektCGI->h2('Rejestracja zakonczona pomyslnie');
}

Inny problem to:
Błąd: use of uninitialized value in pattern match (m//) at...line16

15 $formularzPoprawny=1;
16 $polePoprawne=$uzytkownik=~/^[a-zA-Z]+$/;
17 unless ($polePoprawne)

Z góry dziękuje za pomoc.
PS. perl 5.6...; CGI.pm jest.

[TQM]

1. nie obiektCGI tylko $obiektCGI
2. robisz z kodu straszne spaghetti - popatrz co daje perltidy (kawalek dalej)
3. regex do sprawdzania maila nie bedzie /[a-zA-Z\-]+\@[a-zA-Z\-]+\.[a-zA-Z\-]+/ tylko /^[\w\-\.]+\@[\w\-]\.[\w\-\.]+$/ - lewa strona moze zawierac znak kropki (choc RFC o twierdzi ze nie to wiele osob ma takie maile) domena musi skladac sie z 2 czesci minimum (lub wiecej) dlatego dalem w drugiej czesci kropke... no i ^ oraz $ jako domkniecia... ostatni w sumie koncowke mozna zapisac jako \.[\w\-]+/ i tez bedzie ok...
4. Sugerowalbym korzystaz z modulu Email::Valid - tam calosc zostala swietnie rozpracowana... bo co zrobi Twoj regex gdy podam 2 maile w polu? Stwierdzi ze ok... albo moge wstawic cos co rozwali email ale skrypt to przelknie.

P.S.
Wyjscie z perltidy wyglada mniej wiecej tak (przykladowy fragment):

sub bladDanych() {
    chop($blednePola);
    print $obiektCGI->start_html(
        -TITLE   => "Problem z rejestracja",
        -BGCOLOR => "white"
    );
    print $obiektCGI->h2("Nastepujace Pola zle:<BR>");
    print $obiektCGI->h3("$blednePola<BR>");
    print "Wróc i popraw";
    print $obiektCGI->end_html();
}