Select Code to Download

my $init = eval <<EOI;
sub {
...
# and later onAwaken...
$awaken->();

my $init = eval <<EOI;
sub {
...
# and onFoo;
$foo->();