如何在perl cgi中为按钮分配操作？

因此，我的CGI Perl中有一个按钮。单击该按钮时，我需要在perl CGI中分配一个操作，单击该按钮时，将在同一页面中打开一个具有指定宽度的新文本区域，其中包含一个submit按钮。请帮助我如何进行。这是一段对我来说并不实用的代码。单击“提交”按钮后，我将向电子邮件id发送邮件

这里我打印按钮

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');

}

---

onClick

属性（按钮

的第三个参数）应该是JavaScript函数，而不是Perl函数。您应该研究CGI和网页是如何工作的。
将原始HTML放入Perl代码是一个糟糕的想法。使用CGI.pm中的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;
}