Select Code to Download

Use of uninitialized value $_[0] in pattern match (m//) at C:/Strawber
+ry/perl/si
te/lib/SOAP/Lite.pm line 340.
Use of uninitialized value in sprintf at C:/Strawberry/perl/site/lib/S
+OAP/Lite.p
m line 3612.
Press any key to continue . . .

#!/usr/bin/perl -w

use strict;
...
my $service = $soap->service('http://192.168.1.100/AbacusWebService/Se
+rviceCashPoint.asmx?wsdl');
print Dumper($service->getCardInfo('ws','ws','45','pm01001011000000003
+7'));
print "test \n";