my $xml = CHANNEL::MakeMyTrip::XMLWriter
        ->new()
        ->start()
        ->add_auth_header()
        ->direct_write(sub {
            my $writer = shift;

            $writer->startTag("soap12:Body");
                $writer->emptyTag("req:FetchRoomAllotment");
            $writer->endTag("soap12:Body");
        })
        ->end();