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
![search.cpan.org: Acme::Gosub - Implement BASIC-like "gosub" and "greturn" in Perl](https://cdn-ak-scissors.b.st-hatena.com/image/square/c4a607b5430575638fd9a7f233e073d867af4bb7/height=288;version=1;width=512/https%3A%2F%2Fmetacpan.org%2Fstatic%2Fimages%2Fdots.png)