Help for this page

Select Code to Download

Select or download this

{
   $_ = <INFO>;
...
   last if /^\* Menu:/;
   redo;
}

Select or download this

while (1) {
   $_ = <INFO>;
   return %Header unless defined $_ and !/^\037/;
   last if /^\* Menu:/;
}