Как назначить действие для кнопки в Perl CGI?

Question

Так что у меня есть кнопка в моем CGI Perl. При нажатии на эту кнопку мне нужно назначить действие в Perl CGI, при нажатии на эту кнопку должна открыться новая текстовая область с указанной шириной на той же странице с кнопкой отправки. Пожалуйста, помогите мне, как я могу продолжить. Вот код, который на самом деле не работает для меня. При нажатии на кнопку "Отправить" я отправляю сообщение на электронный адрес

Здесь я печатаю кнопку

print button('email',"email me","reqts()");

Здесь opentextarea подпрограмма

sub reqts {

   print "<p><em>Enter your Message here</em><br>";
   print textarea(-name=>'Comments',
                      -rows=>10,
                      -columns=>50);
   print submit('Action','Send');

}

При нажатии на эту кнопку подпрограмма не вызывается.

Эта кнопка находится в форме HTML в другой подпрограмме

sub actions {
print
  start_html(),
  start_form(-action => 'com.pl'),
  submit(-name => 'submit', -value => 'View com.pl'),
   end_form,
  print button('email',"email me","reqts()"),   # this is the button
  start_form(-action => 'about.pl'),
  submit(-name => 'submit', -value => 'About Us');
  end_form,
  end_html;
}

Answer 1

onClick атрибут (третий аргумент button) должна быть функцией JavaScript, а не функцией Perl. Вы должны изучить, как работают CGI и веб-страницы.