Content-Transfer-Encoding: base64
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHR
+ofHh0a
HBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMj
+IyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAC6AM
+sDASIA
AhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAw
+UFBAQA
AAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKS
+o0NTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmq
+KjpKWm
p6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8
+QAHwEA
AwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAx
+EEBSEx
BhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERU
+ZHSElK
U1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsr
+O0tba3
uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPw
+D3+iii
gAooooAKKKKACiiigAooooAKKKhvLy30+ynvLuVYbaCNpJZGPCKBkk/hQBNRUNpdQ31lBd
+27h4J4
1ljYfxKwyD+RqagAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAorzP4w
+eLdY8E
waDrWmOGgW6eG5tn+5OrLkA+h+U4I6fmK3PAnxG0bx5p4ktHFvfoB59lI4Lof9k8bl9wPq
+B0oA7C
iiigAryn4/eIxo/gMaXG+LjVpREB38pMM5/9BH/Aq9Wrxf4y/Da515dR8Vza+Uh06yJhsP
+suQAoJ
I37+pOedvp1xQBY/Z88Ty6t4SudHu7kSz6bKBCrEbhAw+UepAYMPYED0r2CvHfhT8KJvC9
+9p/iiP
xB5yXdiPNtPsezKyKrbd+89CFPTnHavYqACiiigAork/HHxC0XwJp3n6hL5t2/8AqbKJh5
+knvj
"Psv


Source code 

use LWP::UserAgent(keep_alive => 500,timeout =>600);
use HTTP::Request;
use HTTP::Headers;
#use SOAP::MIME;
#use MIME::Entity;
use LWP::Debug qw(+);
use LWP::ConnCache; 

#use MIME::Lite;
 
my $objUserAgent = LWP::UserAgent->new;
$objUserAgent->conn_cache(LWP::ConnCache->new());


&input_parameters();
&soap_request();

sub input_parameters()

{

if ($#ARGV < 1) { die " usage:: perl MM7Client.pl <RECIPIENT> <SYSTEM:
+:(S)MART::(P)OWER>\n" }

$RECIPIENT = $ARGV[0];
$SYSTEM= $ARGV[1];

if (  ( $SYSTEM ne 'S' ) && ( $SYSTEM ne 'P' ) )
{ print "Invalid system entered S for SMART P for POWER \n"; exit; }


print "\n*******************************\n";
print "The recipient is $RECIPIENT\n";
print "The system is $SYSTEM\n";
print "\n*******************************\n";

}


sub soap_request()
{
my $request = <<CONTENT 
--soap-border
Content-Type: application/xml
Content-ID: <Test>

<?xml version="1.0"?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/env
+elope/"
    xmlns="http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/sche
+ma/REL-5-MM7-1-2">
   <soap-env:Header>
      <TransactionID soap-env:mustUnderstand="1">TransID</TransactionI
+D>
   </soap-env:Header>
   <soap-env:Body>
      <SubmitReq>
         <MM7Version>5.3.0</MM7Version>
         <SenderIdentification>
            <VASPID>43930820006</VASPID>
            <VASID>News</VASID>
            <SenderAddress>
                <Number>0930820006</Number>
            </SenderAddress>
         </SenderIdentification>
         <Recipients>
         <To>
            <Number>$RECIPIENT</Number>
         </To>
         </Recipients>
         <LinkedID>mms00016666</LinkedID>
         <MessageClass>Personal</MessageClass>
         <DeliveryReport>True</DeliveryReport>
         <ReadReply>False</ReadReply>
         <Priority>Normal</Priority>
         <Subject>SOAP TEST TOOL</Subject>
      </SubmitReq>
    </soap-env:Body>
</soap-env:Envelope>

--soap-border
Content-Type: multipart/mixed; boundary="boundary"

--boundary
Content-Type: text/plain; Name="tekst.txt"; Charset=ISO-8859-1
Content-id: <tekst.txt>
Content-location: tekst.txt

ίδ

--boundary
Content-Type: image/gif;Name="test.jpg"
Content-id: <test.jpg>
Content-location: test.jpg
Content-Transfer-Encoding: base64

/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHR
+ofHh0a
HBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMj
+IyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAC6AM
+sDASIA
AhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAw
+UFBAQA
AAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKS
+o0NTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmq
+KjpKWm
p6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8
+QAHwEA
AwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAx
+EEBSEx
BhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERU
+ZHSElK
U1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsr
+O0tba3
uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPw
+D3+iii
gAooooAKKKKACiiigAooooAKKKhvLy30+ynvLuVYbaCNpJZGPCKBkk/hQBNRUNpdQ31lBd
+27h4J4
1ljYfxKwyD+RqagAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAorzP4w
+eLdY8E
waDrWmOGgW6eG5tn+5OrLkA+h+U4I6fmK3PAnxG0bx5p4ktHFvfoB59lI4Lof9k8bl9wPq
+B0oA7C
iiigAryn4/eIxo/gMaXG+LjVpREB38pMM5/9BH/Aq9Wrxf4y/Da515dR8Vza+Uh06yJhsP
+suQAoJ
I37+pOedvp1xQBY/Z88Ty6t4SudHu7kSz6bKBCrEbhAw+UepAYMPYED0r2CvHfhT8KJvC9
+9p/iiP
xB5yXdiPNtPsezKyKrbd+89CFPTnHavYqACiiigAork/HHxC0XwJp3n6hL5t2/8AqbKJh5
+knvjsv
+0f1PFcz8IPF+u+ObrxDrOpsI7ESxQ2dqn3IcBiwBxycFCSfXsMCgD1KiiigAooooAKKKM
+jOO9AB
RRRQAUUUUAFFFFABRRRQB5x8ctJXVfhfeOEZ5rOeG4hVQSS24RngdflkavDfAHgfX4/Hui
+RXF1N4
eup4jeWc8keXkVTyqqe5GeG7dQQefrnGa4b4m+FbrXNGg1bRdyeItHf7Tp8iHluQWTHQ7g
+OAR1AH
QmgDt41KRqrOzkAAs2Mt7nAA/KnVgeCvE0Xi/wAJWGsxrskmTbPHjHlyrw6/TIOPbFb9AB
+XL/Ej/
AJJr4j/7B83/AKCa6jpXE/EXWtKk8Ba9Zpqdk11NYSiKEXCl3JUgALnJ/Ck2luJtLc3vCf
+8AyJuh
/wDYPt//AEWtbFc/4Nv7O48JaLDDdQSSpYQqyJIGKkIAQQPQ8GugpjTuFIRlSASCR1Halr
+E8YeIo
/CfhPUdcli80Wke5Y843uSFUZ7AswGaAPmn4j+Btbn+Imqx6fcz+Irtl+13Agj3SwIThEc
+KMbtu3
AA6YwAK9j+Aumvp3wzjaSNo5Lm8mlZWGCCCI+R/2zrS+FmiXFroc/iPUn3av4idb65AGFR
+Tkxoo6
gBW7+uO1d4AB0GKACiiigAooooAKMZoooAB05oo96KACiiigAornPG3h278SeH5LfTdUvN
+M1GHMt
rPaztF8+0gK5HVDnn86+Ym+KHxF8O6jPYXGu3S3FtK0UsVyiS4ZTgglgfTqDQB9gUVwfwm
+8Ua54w
8Itq2t/ZAxnaKH7PGVLKoGWb5iMkkjAA6e9d5QAUUV454++KEryzaT4fmMaKSk14hwxIPS
+Mg9P8A
a79vUxUqKCuzOrVjTjeQyfWbP4afEjW3tCt5pmqxieW0hkw1tdA56YwA24njn24GcHWPit
+4l1QSx
wTpYQPkBbdfnC+m8859xiuId2kdndizMclickn1qeysLvUrpbayt5biZuiRqWP1+nvXnzx
+E5baHm
VMVUm9NENnu7m5YtPcSyk8kyOWz+dQ13Vj8LdWaL7Rq91aaVbj7zTSBmHvgHb/49VkeC/B
+1qM3fj
SCXHX7Ps/oWrPll1MeSW7PPK0tO8Q6xpM6TWOpXMLqcgCQlT9VPBHsRXYnwL4VuiPsfjW1
+TPIWYJ
k56D7y81Q1L4YeIbJDLapDqEGMh7Z+cf7pwT+GaFGS1Q1Ga1Rv8Ah/4y3sd0sWvW8c1s2A
+ZrdNrp
7kZww9hj+laP2n/haHxE0823PhnQVS6lEsZBuLlgdoweoXH6N1yK8elhkgleKaN45EOGR1
+IKn0IP
SrWlatfaJfx3un3DwToeCvQj0I6EexreniZR0lqjeli5xdpao+rwMDAori/AvxAtvFkRtb
+hFt9Uj
Xc8S52SL/eXP16Hn612ld0ZKSuj04TjNXiFFFcf8Sdc8Q+G/CcureHoLGZ7Y7rkXYPyxYO
+WXDLkg
445znpVFHYUV8e3Hxa+IOtXSwR65cK87hI4bWJIzknAUFRnqfXNfTPgLw7qXh3w6ketapd
+alqs5E
tzNcTtLsOPuKWJ+Uc/UkmgDqaKKKACk5HQDFLRQAUUUUAFecfEX4TWPjnUtP1KOVbS8ikR
+Lp8cTQ
Z5BwOXHQHPQ4PbHo9FAHnWqfDKWw1FtY8Dao+hX+7e1n1spj0O6Mfdzx0BHHAB5pug/FEQ
+6idD8c
WQ8Paso+SaZtttcgdWRzwB9SR754r0euU+IjaPF4QubjWdLg1KKMr5UEw6uTgEHqOvUc4p
+NpK7E2
oq7OQ+K3jcxx/wDCP6ZMrCWMNdTRtn5TyEBHqOT7Eeprx2kVVRQqKFQDCqOgHpXR+DvC7+
+J9XMLu
YrKBfMuZem1fQHpk+/oT2ry6k3Ulc8WpUlVncseFPBVxr6tf3kostHiyZbqQhcgdQuePxP
+A9+lbV
/wCPrDQ4H07wbp8VtF917yRMvJ7gHr9Wz9BWX418Wpq0iaTpIMGiWgCRRpkCXH8RHpxxn6
+9Txx9T
fl0RLly6RLN7qN7qU3m313PcyDo00hcj6Z6VWooqCArR0vXdV0WVZNOv57fDbiiudjH3Xo
+fxFZ1F
AHpVt4o0Dxsi2Hii0is79hti1GL5QD2yT0/HI+lcj4m8K6j4XvfKu1DwOT5Nwn3JB/Q+38
++tYdeg
+D9etta08+EPELl7acgWc7H5oX/hUE/p+XQ8Xfm0e5pfm0e5wtle3OnXkV5ZzPDcRNuSRD
+gg19H+
CPFkXirQEuXaNLyH5LqNT91v72OwPX8x2r5613RrnQNYuNNusGSI8OBw6nkMPqKbpVyVuB
+ZTXt1b
afeOkV79nmMZeLPzAkdRgkEehNa0Kjpys9jXD1XTnZ7Hs/iL4qwwaidF8I6dJ4j1gjDLan
+MMB7F3
HH5HHHJFRWnwxuvEF8urfEDUzqlxkMmm27MlnAR0wucscfTOTnNdvofhzR/DVl9k0bToLK
+E4LCJe
XPqzHlj7kmtSvSPXPMvBHwa0nwh4mvdZaT7UwlP9no4z9njI6nPV8kjPoM9Tx6bRRQAUUU
+UAFFFF
ABRRRQAUVVvdSsdOERvby3thK4jj86QJvc8BVz1J9BVqgArx7416tMLjTtIRysOw3Mij+I
+5Krn6Y
b869hr5y+J19JfePtQDuWS32QRj+6AoJH/fRY/jXPiZWp+py4yVqdu5yFekajIvg74aWdj
+ACuo62
vmzyAYKx4BKnv0YLj3auF0WyXUdd0+yfOy4uY4mx1ClgD+ldP8Ur1rnxpLbdI7OGOFADxy
+u88f8A
AsfhXAtE2eZHSLZxVS21tPeXMdtbRPLNKwVEQZLE9hUVex/Bnw9GLa51+4iBlZ/JtmYfdA
+HzMPrn
H4H1p0oc8uUdKm6k1E1/DHwo0jS4Em1dF1C96sG/1S+wXv8Aj+Vd5b2ltaIEtreKFB/DGg
+UfkKmo
r1IwjFWSPZhTjBWijN1Lw/pGrxGO/wBNtpwf4mjG4fRuo/CvHPHnwybw/bS6rpUrzWCsN8
+DAl4QR
1z3XP5ZHXrXutNkjSaJ4pUV43UqysMhgeoI7ipqUozWpFWjGotdz5FpUdo3V0YqynIYHBB
+9a3vGf
h5/DPia6sCP3BPm27f3o26flyPqDWBXlSTi7M8aUXFtM9G8UNH4s8AWPiYKBf2TC1uyAPm
+6DJ/Eq
R/vmvOa9E+Gv/Ey0zxFoMpzFcWvmKOu1uVyB3PK/kK87qpa2ZU9bM+lfh7qLan4F0ueSTz
+JUjMTk
tk5Rioz74AP4109eV/BG6Z9L1e0z8sU0coHuykf+yCvVK9OlLmgmexQlzU0wooqnY6tp2p
+mUWN9b
XLQu0cixShijKcEEDoQfWtDUuUUUUAFFFFABXinxS8XfE/Qr64/szTI7XRQdsV7axi4Zht
+GSxOdn
JPVRyOCete10UAfC9jqOr3niqwvDLLf6r9qiMRu5C5kkDDaGZjnGcDqK+iP+Eh+Of/QmaH
+/3+X/5
IrutX+H/AIX1rVIdUu9KhGoxTJOt1D+7kLqQQWI+90HXNdNQB4//AMJD8c/+hM0P/v8AL/
+8AJFeZ
a3Nqdxrd7NrMMcGpvMxuYozlUfPKg5PA6dT9a+ra+bviTavaePtUDAgSOsqk9wyg/wA8j8
+K5cX8C
OLHL3F6lXwIIz440nzCQvn8Y9cHH64p3j0yHxzq3mABvO4x6bRj9MVm6BeLp/iLTbyRisc
+NzG7kf
3Qwz+ma6H4oWTWvji5lIGy6jjmTHptCn9VNcX2Tz/sHG19I/DUBfh7pIXpskP4+Y1fN1e4
+/BvXPt
egz6PK6+ZZPviXGD5bkk/XDZ/MVthWlOx0YKSVSz6npdFcv4p8d6X4Rure3v4LyR50LqYE
+VgADjn
LCsH/hdPhz/ny1X/AL9R/wDxddrqwi7NnoSrU4uzZ6NRXnP/AAunw5/z5ar/AN+o/wD4uu
+n8LeLr
DxdbXE9hDcxpA4RhOqqSSM8YY041ISdkxxrQk7RZ5f8AGsD/AISPTjjk2mM/8DavMq634j
+eI4/Ef
iuWW3A+zWq/Z4mH8YBJLfiSfwxXJV5tZp1G0eRXkpVG0d/8ACAv/AMJfPtHH2J9303p/XF
+cHOIxP
IISTEGOwnuM8V6D8MALC31/W5QVitbTbuA5JOWwPf5R+Yrzupfwol/CjsfA1/wCMbCHUW8
+G6Zaaj
dM0QniumCqqfP8wzInOeOp611f8AwkPxz/6EzQ/+/wAv/wAkVY+B8DLZ61cEHbJJEgPuoY
+n/ANCF
esV6OH/ho9XCr90jx/8A4SH45/8AQmaH/wB/l/8AkivnbUb/AFW08UX940j2OqC6laU20h
+UxyFju
CsD0zkdT9a+6a5bSfhz4W0bV5dWt9LjfUZZ3nNzOTI6uxJJXPC9T0ArY6DzL4X+Mvijrup
+wR3mnr
e6QuFnuruEW5VcHBVwBuOQOit15xnNe7UUUAFFFFABRRRQAUUUUAFeMfGzTpF1TTdTCHyn
+hMBcdm
UlgD+DH8jXs9c7440JfEPhO8szIkUiL50TuQFDLyMk9AeQT2BrOtDng0Y14c9NpHzLXo+v
+R/8JZ8
OdN1qAl7zSl8i7TqSuACx/IN9GPpXnHHYgj1U5B+hHWuo8EeJ08O6pJHeJ5mm3i+VdJjOB
+2bHfGT
x6E15cX0Z5EX0Zy9bng25mtvGmjNBK0bPexRsVOMqzgEH2INXPGfhQ+Hb5J7RvP0m6+e1n
+U7hgjO
0n19PUc+uM7wn/yOOh/9hCD/ANGLTimpIIpqaO7+Nv8AyGdL/wCvdv8A0KvMIozLIEBAJz
+yelen/
ABt/5DOl/wDXu3/oVeZ2gzcL9G/karEu1RndToxr46FKe0pRT+bSGSxmKQoxBI7itvS/Fd
+9o/hy+
0mx/dm9fMswPzBMY2r6Z5yax7s5uG+g/kKhrOMmtUc+Kp/V8RUpw+y2vudgoAJOB1oruvB
+Hh62ig
fxVrh8rS7I74lYczSDpgdwD+Z47GhK7OdK7sXddjHhL4a2uhucahqkguLhOhReDg/kq+/w
+A1ecVr
eJden8Sa5PqM42B8LHHnIRB0H9T7k1J4V8P3PiTX7ayhhaSLerXDA42RbgGOfoar4pWRT9
+6VonuX
ww01dO8CWLbCsl0WuJM9yTgH/vkLXYU2ONIYkiiRUjRQqoowFA6ADsKdXqxjypI9uEeWKj
+2Ciiiq
KCiiigAooooAKKKKACuT8ZfEHR/BUumw38gaa9uFj8pW+aOMkgykf3Qfz7dKv+LvFmneDf
+D8+rai
4wgKww7gGmkwSEX3OPwHNfIl+viz4hazc6uNO1HU5pWPzQW7yLGueFGBgAdKAPqbxT8SdH
+8Oymwt
Vk1fXHGIdMsQXkZv9ogHaP1x2Nc3aeB/EfjyYaj8QLuS0sj/AKrQrKYpHt6gykHlv146jp
+TPgXoU
2jaBdR6n4bl03Vo5Cpu57fY88TchQx54I5HT7tes0AeI/FDwLFpPk6to1msWnrGsU8US4W
+IjCq2P
QjA+v1rzGvre4tobu3kt7mJJYZF2vG65Vh6EV4N4++Hl1oN1LqGnRNNpkjNIRGh/0YZ6Ny
+eOevtX
DiKLT54nm4rDtPniU/C3jUWFodF1yH7dokvylGGWi919RnnHbqPffsvh+I/EWkaz4dvotQ
+0tb6GR
gHG+JQ4J57459D7V5dXQ+CdRvLHxfpSWtzLCk95DFKqNgSKXAII79TXPCWqTOaEtUmdj8b
+f+Qzpf
/Xu3/oVeZ2p23Cn2I/Q17n8RvEum6RqFhZarokOpW00bPufG6PnB25H9R9a891TVPBN/YT
+LpWh3d
pqZAMUhb5BgjPG8j7ue1ViUuaWp6eDiv7Tpa/bj+aONuDmdvw/lT7OxutRuUt7O3knmc4C
+RqSa6/
SdZ8F6fp8SajoNxd6iM+dJnKNySuAX9MA8Cprr4o3sUBttD0yy0q3xwI0DMD6jgL+lZRS5
+VdmOaQ
Sx1a7+3L82WNO8D6f4ct01bxjdxIqjdHp6MGeQ+hwefoOPU4rnvFfjG88TTJFsFtp0J/cW
+qdF4wC
fU4/LtWHe311qN09zeXEk87/AHnkbJ//AFe1JZ2dzqF3Ha2kDz3EhwkcYyWNO/RHA5X0iR
+wwy3Ey
QwxvJK5CoiKSzE9gB1NfQ/w68IL4X0MSXCEaldgNcZOdgGcIPpnn1P0FZ3w7+HqaBEuqap
+GkmpSK
GjQj/j2BByPQsc8ntjjvXodd2Ho8vvS3PQwuH5PfluFFFFdR2hRRRQAUV8f+PPGPi6H4g6
+sJdY1O
0e0vZRbwrcMghTcdu0AgYK457ivYvGnxU1bwLofhcvpsV1dahYLLc/aGKssgVMjjvljQB6
+9RXE/C
/wAcXPj7wzc6rdWcVq8V41sEiYsCAiNnn/fP5V21ABRRRQBFPa29zs8+CKXYcr5iBtp9Rn
+pUoGBg
UUUAFFFFABSMAylWAIIwQe9LRQB5t4s+E1jqrtd6I0VhckkvEQfKc+wH3PwGPavPNK8K63
+ofjjSI
77TbhFj1CAmVULRkeYvIYcYr6MorCWHhJ3WhzTwsJPmWjPFfjb/yGdL/AOvdv/Qq82sf+P
+of7j/+
gmvSfjb/AMhnS/8Ar3b/ANCrzO1cR3Ck9CCv5gj+tcOJ/iMypTUMfCctlKL/ABQlx/r2/D
++VJBbz
3Uoit4ZJpD0SNSx/IUtwwaYkEEe1ej/BT/kZtQ/68z/6GtRRhzNRY8xUK2Y1uSV05yd1ru
+2yj4e+
E+u6uqTX23TLZhkGZd0hH+52/Eiu/wBWfwz8IPCs+qw2YkmJWNA7/vbhz/DuI4GAScDHB4
+rv68Q/
aUJ/4R3Qxnj7W/H/AACvTp0YQ2N6WHhT23OCuP2gPG0moNPC9jDBuJW2+zhlA7Ak/MfrkV
+ra3+0X
rd3Y2kej6fb2FyI/9Kmk/ehn/wBhT0HfnPXHbJ57wRommah8LvHN/d2UM13ZxwtbzOuWiP
+zfdPas
v4TaVY638TtG0/UrZLm0kMpeGT7rbYXYZ9eVBxWpsejeAfj5qM+sQab4qjhlhuZFjS8hQR
+mJicZc
dCvI6Yxz1r1H4i/Eaw+H+lxSywm6vrklbe2VwOg+83cKOnA6mvk7xdawad4212ztIxDb22
+o3EUKK
eEVZGCgfQAV2/wAf3lf4nyiTOxLSER5/u4J4/EtQAx/j546a684XVkiZz5K2q7Ppk/N+te
+0/DP4t
WPjtf7Puols9bjQu0IJMcqjGWQn6/dPP1AOPN/A2mfDXVfhqLbUFtG8RvFOGEkjLMZBuKF
+QD027e
nHHNeffC/UpNL+Jvh6eMkGS8S3OMciU+Wev+9QB1Hj34k+ILP4hapEg02Q6feSRWss2nQy
+SRKrHG
HZSR+dafx9uZb2y8GXU7Bpp7B5HIGMsRGTx9TXn3xH/5KT4j/wCwhN/6Ea7v45f8gbwL/w
+Bgw/8A
oMdAHefs4/8AJPNQ/wCwrJ/6Kir2CvH/ANnH/knmof8AYVk/9FRV7BQAUUUUAFFFFABRRR
+QAUUUU
AFFFFAHl/wAUvCWueI9TsJtJsftEcULK581Ewd2f4mFcF/wq/wAZf9Af/wAmYf8A4uvo2i
+sJ4eM5
czOaeFhOTk2z5y/4Vf4y/wCgP/5Mw/8Axddz8L/B+veHddvLnVbH7PDJbeWrecj5bcpxhW
+PYGvVK
KUMPCMuZChhIQkpJsK82+MPgTV/HWk6bbaQ1ssltO0j/AGiQqMFccYBr0miug6jxHwn8J/
+EeifD/
AMWaJdPYm71WONbcpMSoK5zuO3jr71Q+G/wa8T+FPH2ma3qMmnm0tvN3iGZmb5onQYBUd2
+Fe+0UA
fNnif4FeLtX8WazqdtJpgt7y+nuIg87BtryFhkbeuDXqvxP+Gdv8QdPheKdLTVLQN5E7R5
+Dgj/Vu
RztzjnnGTwc131FAHzR4b+B3jHSvEltdXKWHkRb9zpcZ6oQOMZ6mpPDHwK8XaR4s0bU7mT
+TDb2d9
BcShJ2LbUkDHA29cCvpOigD5y8X/AAO8Wa54w1fVbSTTRb3d3JNGJJ2DbWORkbetdP8AEv
+4W+IPF
un+GYNNeyD6bZmCfzpSoLYQfLhTkfKa9mooA4D4Q+DdU8D+E7rTNWa3a4lvnuFMDll2mON
+RyQOcq
a7kGWQB43RUIyA0Zz/OiQiVzCDwMGTjIx6c+v8vTIqagAooooAKKKKACiiigAooooAKKKK
+ACiiig
AooooAKKKKACiiigAooooAKKKKACo5JNuEXBkYHav9T7DipKq2xJvLzJJw6gew2g4/U/nQ
+BPFH5S
bclj1Zj1J9afRRQB/9k=
--boundary--


--soap-border--

CONTENT
;
$request =~ s/^\s+//;
$request =~ s/\s+$//;
chomp($request);           
   
my $objHeader = HTTP::Headers->new;
$objHeader->authorization_basic("43930820006","exidris_serv01"); #1
$objHeader->push_header('SoapAction' => '""');
$objHeader->push_header('Content-Length' => length($request));
$objHeader->push_header('Content-Type' => 'multipart/related; boundary
+="soap-border"; type="text/xml"; start ="<Test>"');

if ($ARGV[1] eq 'S' )
{
#Test System
print "Test System\n";
my $objRequest = HTTP::Request->new("POST", 'http://10.236.136.18:1002
+1/vas_soap',$objHeader, $request);
my $objResponse = $objUserAgent->request($objRequest);

#Process Response#######
if ($objResponse->is_success)

{
        
    print $objResponse->content;

}

}

elsif ($ARGV[1] eq 'P')
{

#Power System
print "Power System\n";
#my $objRequest = HTTP::Request->new("POST", 'http://10.236.137.1:1002
+1/vas_soap',$objHeader, $request);
my $objRequest = HTTP::Request->new("POST", 'http://10.236.137.5:10021
+/vas_soap',$objHeader, $request);
my $objResponse = $objUserAgent->request($objRequest);

#Process Response#######
if ($objResponse->is_success)

{

    print $objResponse->content;

}

}

}
[download]

2005-02-04 Janitored by Arunbear - added readmore tags, as per Monastery guidelines