use strict;
use warnings;

my $header;
while (1) {
    chomp($_ = <STDIN>);
    last if !$_;
    $header .= "$_\n";
}
parse_header($header);

sub parse_header {
    my $header = $_[0];
    print $header;
    ## Do necessary $header processing
}