#!C:/Perl/bin/perl.exe
use warnings;
use strict;

use XML::Simple;
use SOAP::Lite +trace => 'debug';
use Data::Dumper;

my $post = "<request>";
$post = $post . "<Number>".$number."</Number>";
$post = $post . "<InternalData></InternalData>";
$post = $post . "</request>";

my $soap = SOAP::Lite
  -> proxy ('https://myrealm.com/service.asmx')
  -> service ('file:abc.wsdl');
  
sub SOAP::Transport::HTTP::Client::get_basic_credentials { 
  return 'username@subrealm.realm.net' => '!pa$$w0rd!';
};

my $elem = SOAP::Data->type('xml' => $post);

$soap->QueryAbc($elem);

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:xsd="http://www.w3.org/1999/XMLSchema">
  <SOAP-ENV:Body>
    <QueryAbc xmlns="">
      <request>
        <Number>9765551212</Number>
        <InternalData></InternalData>
      </request>
    </QueryAbc>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>