Select Code to Download

  <script onInit='our $x;' onAwaken='print "X is now ", ++$x, "\n"' />

  <script onInit='use strict; my $x;' onAwaken='print ++$xx' />

  sub {
    goto __ON_INIT if $_[0] == 1;
...
      print ++$x;
      return;
  }