sub middle ($$) { my ( $a, $b ) = ( shift, shift ); return ($a + $b) / 2 } #### my ($n,$m)=@_; #### print "SQRT 16:\n", &sqrt( 16 ), $/, $/;