!/usr/bin/perl --
use SOAP::Lite; 
my $var1=1234; 
my $var2=3456; 
my $accno = SOAP::Data->type( string => $var1 ); 
my $pinno = SOAP::Data->type( string => $var2 ); 
my $ret= SOAP::Lite
  ->proxy('http://192.168.0.107:8080/ws4ee/services/BankingService?wsdl')
  ->loginUser($accno,$pinno)
  ->result;