$form->select( DATA => $data );

$data = [ { KEY => string VALUE => string ORDER => \d+ }, ];

$data = { KEY => { KEY => string VALUE => string ORDER => \d+ }, KEY => value..., };

my $form = new Review::HTML::Form;

$text .= $form->image_submit_default( NAME => 'def_but', SRC => 'img/empty.png' );

$text .= $form->line( NAME => 'line_one', DATA => ( $I{ 'LINE_ONE' } || 'ne se chete' ) );

$text .= $form->begin( NAME => 'try1' );
$text .= 'cb1' . $form->cb( NAME => 'cb1', VAL => 1 );
$text .= 'cb2' . $form->cb( NAME => 'cb2', VAL => 0 );
$text .= 'cb3' . $form->cb( NAME => 'cb3', VAL => 0, MAX => 3, RET => [ 'qwe', 'asd', '[-]' ] );
$text .= "<p>";

$text .= "<hr noshade>";
$text .= 'r1' . $form->radio( NAME => 'r1' );
$text .= 'r2' . $form->radio( NAME => 'r1' );
$text .= 'r3' . $form->radio( NAME => 'r1', ON => 1 );
$text .= 'r4' . $form->radio( NAME => 'r1' );
$text .= 'r5' . $form->radio( NAME => 'r1' );
$text .= "<hr noshade>";
$text .= 'r1' . $form->radio( NAME => 'r2', ON => 1 );
$text .= 'r2' . $form->radio( NAME => 'r2', RET => 'asd' );
$text .= 'r3' . $form->radio( NAME => 'r2', RET => 'qwe' );
$text .= 'r4' . $form->radio( NAME => 'r2', RET => 'zxc' );
$text .= 'r5' . $form->radio( NAME => 'r2', RET => '[-]' );
$text .= "<hr noshade>";

my $data = {
           'one' => 'This is test one',
           'opa' => 'Opa test ooooooe',
           'two' => 'Test two tralala',
           'tra' => 'Tralala again+++',
           };

$text .= $form->select( NAME => 'sel2', DATA => $data, SELECTED => [ 'opa' ], ROWS => 4 );

$text .= "<p>";
$text .= $form->button( NAME => 'bbb', VALUE => '"%!@#$&^' );
$text .= $form->end();