my $request_obj = ContextType_inner->new({Context=>{
                user    => 'jbbec',
                agent    => 1        }});

print $request_obj->as_xml_data;# it's printing what is written above