my $header = SOAP::Header->name("tns:AstHeader" => { 
      SessionId => "SessionID" } );
$header->attr({ id => "id1" } );
                                  
my $response = $CUCM->selectCmDevice($header,..);