w(@params $size $account $error $sortcode $uid $pin &responseString $ua);
use LWP::UserAgent;
use JSON;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(bankValUK new);
our $VERSI
messages etc from the module, erors from the web servoce will be returned in $response string
my $json; #holds the data to call the service with
#constructor
sub new {
my $proto = shift;
my $cla
q = HTTP::Request->new( 'POST', $url );
$req->header( 'Content-Type' => 'application/json' );
$req->content($json);
my $response = $ua->request($req);
#Check the response code anything under 200 o