Select Code to Download

$obj->header('test'); # Get header 'test'
$obj->header('test','new value'); # set header test
$obj->header;         # Get all headers as hash

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