login | 1stname | 2ndname  |     organization     |     division      | position 
-------+---------+----------+----------------------+-------------------+----------
 test  | Валенок | Николаев | Тестовая организация | Отдел обеспечения | Дворник
(1 строка)

say start_form(-name=>'acc_settings', -method=>'POST',-action=>'acc_settings_execute.pl',-class=>'body_form'),
    h4("@results[2]"),
    p('Имя:'),
    textfield(-name=>"1stname",-placeholder=>'Ваше имя'),#-default=>"@results[0]"),
    p('Фамилия'),
    textfield(-name=>'2ndname',-placeholder=>'Ваша фамилия'),#-default=>"@results[1]"),
    p('Подразделение'),
    popup_menu(-name=>'divinorg',-values=>\@division),#-default=>"@division[0]"),
    p('Должность'),
    popup_menu(-name=>'posinorg',-values=>\@positions),#-default=>"@results[4]");
    submit(-name=>'Подтвердить'),
    end_form();

 [code=ruby]
$dbh = DBI->connect("dbi:Pg:dbname=webtaskmgr;host='x.x.x.x';port=5432",'root','groot',
                {AutoCommit => 0, RaiseError => 1, PrintError => 0})
                     or die ("error! $DBI::errstr");
  $dbh->do('set client_encoding=\'UTF8\'');

  my $name=param('1stname');
  my $surname=param('2ndname');
  my $divisiontake=param('divinorg');
  my $positiontake=param('posinorg');

  my $sth = $dbh->prepare("UPDATE usersnames SET \"1stname\"='$name', \"2ndname\"='$surname', organization='Тестовая организация', division='$divisiontake', \"position\"='$positiontake' WHERE login='$login';");
  $sth->execute();
  if ($sth1->err) {
    print "Error!!!" . $sth->errstr;
  }
  $dbh->disconnect();