my $header;
{
    local $/ = 'END';
    open FH, "< $filename" or die $!;
    $header = <FH>;
    close FH or die $!;
}