Select Code to Download

$divesub  = sub { somesub('divesub')  };
$raisesub = sub { somesub('raisesub') };

...
        &surface;
    }
}

$divesub  = \&divesub;
$raisesub = \&raisesub;

...
        &surface;
    }
}