Fedora Core  9 
[root@shutffl 2late_v_0. 2 ]# uname -a
Linux shutffl.xxx.xxx.ru  2 . 6 . 25 . 14 - 108 .fc9.i686 # 1  SMP Mon Aug  4   14 : 08 : 11  EDT  2008  i686 i686 i386 GNU/Linux

[root@shutffl 2late_v_0. 2 ]# perl -v
This is perl, v5. 10 . 0  built for i386-linux-thread-multi

-bash- 3 . 2 $ postmaster --version
postgres (PostgreSQL)  8 . 3 . 3 

....

use CGI qw/:all/;

....

my $cgi = new CGI;

# if submit new teacher
	if ( $s_add_teacher )
	{
		if ($cgi->param("lastname") and $cgi->param("firstname") and $cgi->param("middlename"))
		{
			my $fio = $cgi->param("lastname") . " " . $cgi->param("firstname") . " " . $cgi->param("middlename");
		
			if ( not &find_teacher($fio) )
			{
				
				my $dbh = DBI->connect($config::sql{"dns"}, $config::sql{"username"}, $config::sql{"password"}) or die DBI->errstr;
	  
			  my $sth = $dbh->prepare(
			  	"
			  	INSERT INTO
			  		teachers(fio)
			  	VALUES(?)
			  	"
			  );
			  
			  $sth->execute($fio) or die $sth->errstr;
			  
			  $dbh->disconnect();
			}
			else
			{
				$r .=
					$cgi->font({-color=>"red"}, "Преподаватель уже существует");
			}
		}
		else
		{
			$r .=
					$cgi->font({-color=>"red"}, "Не заполнены поля ФИО");
		}
	}

 $r 

$dbh->{pg_enable_utf8}= 1 ;

GET /2late_v_0. 2 /adminka/index.pl?e=teachers_work HTTP/ 1 . 1 

Host: localhost

User-Agent: Mozilla/ 5 . 0  (X11; U; Linux i686; en-US; rv: 1 . 9 . 0 . 1 ) Gecko/ 2008071615  Fedora/ 3 . 0 . 1 - 1 .fc9 Firefox/ 3 . 0 . 1 

Accept: text/html,application/xhtml+xml,application/xml;q= 0 . 9 ,*/*;q= 0 . 8 

Accept-Language: ru,en-us;q= 0 . 7 ,en;q= 0 . 3 

Accept-Encoding: gzip,deflate

Accept-Charset: windows- 1251 ,utf- 8 ;q= 0 . 7 ,*;q= 0 . 7 

Keep-Alive:  300 

Connection: keep-alive

Cache-Control: max-age= 0 



HTTP/ 1 .x  200  OK

Date: Fri,  12  Sep  2008   10 : 46 : 32  GMT

Server: Apache/ 2 . 2 . 9  (Fedora)

Connection: close

Transfer-Encoding: chunked

Content-Type: text/html; charset=utf- 8 

Content-Language: ru

# if submit delete teacher
	if ( $s_delete_teacher )
	{
		my $default_teacher = &get_default_teacher_id;
		
		my $dbh = DBI->connect($config::sql{"dns"}, $config::sql{"username"}, $config::sql{"password"}) or die DBI->errstr;
		
		my $teacher_to_delete = $cgi->param("teacher_to_delete");
	  
	  my $sth = $dbh->prepare(
	  	"
	  	UPDATE
	  		classes
	  	SET
	  		id_teacher = $default_teacher
	  	FROM
	  		teachers t
	  	WHERE
	  		t.fio = ?
	  		AND
	  		id_teacher = t.id
	  	"
	  );
	  $sth->execute($teacher_to_delete) or die $sth->errstr;
	  
		my $sth = $dbh->prepare(
	  	"
	  	DELETE FROM
	  		teachers
	  	WHERE
	  		fio = ?
	  	"
	  );
	  $sth->execute($teacher_to_delete) or die $sth->errstr;
	  
	  $dbh->disconnect();

#form: delete teacher
	$r .=
		$cgi->start_form({-method=>"get", -action=>"./index.pl"}) .
			$cgi->hidden(-name=>"e", -value=>"teachers_work") .
			
			$cgi->start_table({-border=>"0", -cellpadding=>"0", -cellspacing=>"0"}) .
				$cgi->start_Tr({-align=>"center", -valign=>"center"}) .
					$cgi->start_td({-align=>"right"}) . "Преподаватель:" . $cgi->end_td .
					$cgi->start_td({-align=>"left"}) . $cgi->popup_menu(-name=>"teacher_to_delete", -values=>[@teachers_fio]) . $cgi->end_td .
				$cgi->end_Tr .
				
				$cgi->start_Tr({-align=>"center", -valign=>"center"}) .
					$cgi->start_td . $cgi->end_td .
					$cgi->start_td({-align=>"center"}) . $cgi->br . $cgi->submit(-name=>"s_delete_teacher", -value=>"Удалить") . $cgi->end_td .
				$cgi->end_Tr .
			$cgi->end_table .
		$cgi->end_form .
		
		$cgi->hr;