#!/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; }