$cnt=0;                       #We want 1st of 2 records.
while (<PHOTO_IN>) {          #Read Photo...
      if ("$cnt"<1) {         # Have Photo Header...
        $photo_header="$_";   # Save Photo Header...
        ++$cnt;               # Bump count to skip photo.
      }
   }

##</code><code>##

$photo_header = <PHOTO_IN>;