Help for this page

Select Code to Download


  1. or download this
     $_ = <INFO> until !defined($_) || /^(\* Menu:|\037)/;
 return %header if !defined($_) || /^\037/;
  2. or download this
    while (<INFO>) {
    last if /^\* Menu:/;
    return %header if /^\037/;
}
return %header unless defined $_;
  3. or download this
    do { 
   $_ = <INFO>; 
   return %header if /^\037/ || ! defined $_ 
} until /^\* Menu:/ ;