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