获得OnClick的价值

Question

这是制作可点击组名列表的Perl代码

  print "<TABLE border=22>";

  foreach $tmp (@splitarray) {
    print "<TR>";
    $links = "<a href = '#' name='group' onclick='GetGroupName(this);' >$tmp</a><BR>";
    print "<TD>$links</TD>";
  }

  print "</TR>";
  print "</TABLE>";
}

我希望GetGroupName Perl函数返回点击链接的值并打印出来

例如

sub GetGroupName {
  $groupName = name of link that is clicked
}
print $groupName; # Which would be like group 1

有没有办法在不使用JavaScript的情况下执行此操作？ （如果需要，我可以更改$links变量的措辞。）