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.