Help for this page

Select Code to Download

Select or download this

      {
        package DB;
        sub DB  {}
        sub sub {print ++$i, " $sub\n"; &$sub}
      }