NAME Acme::Gosub - Implement BASIC-like "gosub" and "greturn" in Perl VERSION version 0.1.9 SYNOPSIS use Acme::Gosub; sub pythagoras { my ($x, $y) = (@_); my ($temp, $square, $sum); $sum = 0; $temp = $x; gosub SQUARE; $sum += $square; $temp = $y; gosub SQUARE; $sum += $square; return $sum; SQUARE: $square = $temp * $temp; greturn; } DESCRIPTION Using this function enables using the "gosub" and "gr