# Header.pm
sub set_header {
    $header_ref->{ $key } = $value;
}