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