Select Code to Download

$n=1; #we have no idea which variables should be cascaded.
$subref=sub { return $n *3 };
...
print &$subref, "\n";
$n=2;
print &$subref, "\n";

use Cascade;

...

$m=$n;
$n=$m+1;