## ##
## sub { goto __ON_INIT if $_[0] == 1; goto __ON_AWAKEN if $_[0] == 2; ... __ON_INIT: use strict; my $x; return; __ON_AWAKEN: print ++$x; return; }