HTML.pm

$html->button('NAME', 'LINK_PARAMS', { %PARAMS });

$html->button('NAME', 'LINK_PARAMS', { ex_params => "class=new"  });

<a href='$SELF_URL?LINK_PARAMS' class=new>NAME</a>

$html->button($lang{ADD}, "index=$index&form_add=1", { ADD_ICON => 'glyphicon glyphicon-plus', BUTTON => 1 })
<a href='?index=245&form_add=1' class=new><span class='glyphicon glyphicon-plus'></span>Добавить</a> 

$html->button('COPY TEXT', '', { COPY => 'text for copy' })

$html->message('TYPE', 'CAPTION', 'MESSAGE', { PARAMS });

$html->form_main({ %PARAMS })

 $html->form_input('NAME', 'VALUE', { %PARAMS  });

 $html->form_select("NAME", { %PARAMS });

my $checkbox = $html->form_input("$input_name", "$input_value",
          { TYPE => 'checkbox', STATE => (($groups_settings{$input_name}) ? 'checked' : ''), EX_PARAMS => 'data-toggle="toggle"' });

$html->form_select(
  'TP_ID',
  {
    SELECTED => $FORM{TP_ID} || q{},
    SEL_LIST => $tariffs->list({ MODULE => 'Dv', COLS_NAME => 1 }),
    SEL_KEY  => 'id',
    SEL_VALUE=> 'name'
  }
);

$table = $html->table({ %PARAMS  });

my $table = $html->table( { width      => '100%',
                            caption    => $_COMPANIES,
                            border     => 1,
                            title      => [$_NAME, $_DEPOSIT, $_REGISTRATION, $_USERS, $_STATUS, '-', '-'],
                            cols_align => ['left', 'right', 'right', 'right', 'center', 'center'],
                            pages      => $company->{TOTAL},
                            qs         => $pages_qs,
                            ID         => 'COMPANY_ID',
                            DATA_TABLE => 1,
                          } );

foreach my $line (@$list) {
  #Добавление строк
  $table->addrow($line->[0],  
    $line->[1], 
    $line->[2], 
    $html->button($line->[3], "index=13&COMPANY_ID=$line->[5]"), 
    "$status[$line->[4]]",
    $html->button($_INFO, "index=13&COMPANY_ID=$line->[5]", { BUTTON => 1 }), 
    (defined($permissions{0}{5})) ? $html->button($_DEL, "index=13&del=$line->[5]", { MESSAGE => "$_DEL $line->[0]?", BUTTON => 1 }) : ''
    );
 }

print $table->show();

$table = $html->table( { width      => '100%',
                         cols_align => ['right', 'right'],
                         rows       => [ [ "$_TOTAL:", $html->b($company->{TOTAL}) ] ]
                     } );
print $table->show();

$list = $admin->list({ %LIST_PARAMS, 
                       COLS_NAME => 1 
	                });

foreach my $line (@$list) {
  $table->addrow(
    $line->{aid}, 
    $line->{login}, 
    $line->{name}, 
    $line->{raddate}
  );
}

print $table->show();

$table->addtd( 
  $table->td($value, { bgcolor => 'red', valign => 'top', align => 'center'  }),
  $table->td($value)
);

$html->reminder($lang{REMINDER}, $lang{PLEASE_CHANGE_DEFAULT_PASSWORD});

{
...,
 FILTER_VALUES => {
   name     => sub { my ($name, $line) = @_; $html->button($name, "get_index=foo_main&full=1&chg=$line->{id}") },
   url      => sub { my $link = shift; $html->button($link, $link) },
   comments => sub { my $comments = shift; $html->element('abbr', $lang{COMMENTS}, { title => $comments }) }
 },
...
}

{
...,
  FILTER_COLS => {
    column => '$filter_fn[:$plain_params]:$params'
  },
...
}

{
...
  DEFAULT_FIELDS => '...,TYPE_NAME,...',
  HIDDEN_FIELDS  => '...,TYPE_ID,...',
  FILTER_COLS    => {
    type_name => 'make_chg_button::FUNCTION_NAME=module_types,TYPE_ID'
  }
...
}

sub make_chg_button {
  my ($name, $attr) = @_;
  return '' unless ($name);
 
  my $fn_name = $attr->{VALUES}{FUNCTION_NAME};
  my $id      = $attr->{VALUES}{TYPE_ID};
 
  my $fn_index = get_function_index($fn_name);
 
  return $html->button($name, '?index=' . $fn_index . '&chg=' . $id);
}

$html->button_isp_express({
    INFO  	  => \@button_value,
	DROPDOWN  => 1 # Если этот параметр не передать тогда будут обычные кнопки
});

[
   {
     'Button_1' => {
       'Sub_button_1' => 'http://abills.net.ua'
     }
   },
   {
     'Button_2' => {
       'Sub_button_1' => 'http://abills.net.ua',
       'Sub_button_2' => 'http://abills.net.ua'
     }
   }
];

[
   {
      'Button_1' => 'http://abills.net.ua',
   },
   {
      'Button_2' => 'http://abills.net.ua',
   },
   {
      'Button_3' => 'http://abills.net.ua'
   },
];