Select Code to Download

$obj->header('My Header', 'value');   # Set 
$obj->header('My Header') = 'value';  # Set
if ($obj->header('My Header') eq 'value' ) {  # Get
...

sub header : lvalue {
    my ( $self, $h, $value ) = @_;
...
      if defined $value;
    $self->{header}->{$h};
}