#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;
use HTTP::Request::Common;

my $userAgent = LWP::UserAgent->new(agent => 'perl post');

my $message = "<?xml version=\"1.0\" encoding=\"utf-8\"?> 
<soap12:Envelope xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" 
xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" 
xmlns:soap12=\"http://www.w3.org/2003/05/soap-envelope\"> 
 <soap12:Body> 
 <getCardInfo xmlns=\"http://www.designa.de/\"> 
 <UserID>ws</UserID> 
 <UserPWD>ws</UserPWD> 
 <TccNum>45</TccNum> 
 <CardNumber>\"PM010010110000000037\"</CardNumber> 
 </getCardInfo> 
 </soap12:Body> 
</soap12:Envelope>" ;

my $response = $userAgent->request(POST 'http://192.168.1.100/AbacusWebService/ServiceCashPoint.asmx/getCardInfo',
Content_Type => 'text/plain',
Content => $message);

print $response->error_as_HTML unless $response->is_success;

print $response->as_string;