Hi the below code may be useful for you.

This is the example I used when I learnt to send XML request.

<?xml version='1.0' ?>
<env:Envelope xmlns:env="http://www.w3.org/2002/12/soap-envelope"> 
 <env:Header></env:Header>

<env:Body>
    <isbn:getTitle xmlns:isbn="http://www.nicholaschase.com/BookLook">
+0672324229</isbn:getTitle>
</env:Body>
</env:Envelope
[download]

#!/usr/local/bin/perl 
use CGI qw/:standard :netscape/;

use SOAP::Transport::HTTP;

  SOAP::Transport::HTTP::CGI
    -> dispatch_to('BookLook')
    -> handle;

  package BookLook;

  sub getTitle {
      my ($class, $isbn) = @_;

      if ($isbn == '0672324229'){
          return "XML Primer Plus";
      } else { 
          return "Unknown";
      }
  }

  sub getAllInfo {
      my ($class, $isbn) = @_;

      if ($isbn == '0672324229'){
          return 'XML Primer Plus by Nicholas Chase, $32.58';
      } else {
          return "Unknown";
      }
  }
[download]

Check If you find it useful for you.