my $v = $self->header ('test')
         = "fail"; # :-)

##</code><code>##

   my $v = $self->header ('test',
           'fail');

##</code><code>##

my $hdr_slot = $self->header ('test');
$hdr_slot = "new value"; # Set
print "New header: $hdr_slot\n"; # Get