#!/usr/bin/perl
print"Content-type:text/html\n\n";   
&edu01;
&edu02('6','2');
&edu02('10','3');
sub edu01{
  print "point1<br>";
}
sub edu02{
  local(@v) = @_;
  $x = $v[0] - $v[1];
  print $x;
}