sub perl_func {
  my @input = @_; # change from @{$_[0]};
.
.

Line 46 - change ; to "

<td><input type="submit" value="Submit" onClick="exported_func
+( ['stu_id','stu_name','addr','dept'], ['resultdiv'] ); ></td>
[download]