This seems fairly straightforward:

while (<INFO>) {
    return %header if /^\037/ or eof( INFO );
    last if /^(\* Menu:)/;
}
[download]

D'oh! Looks like japhy beat me to it!