Help for this page

Select Code to Download


  1. or download this
    my @labels = qw /L0 L1 L2/;
...
    goto $labels[0];
  L0: