#!/usr/bin/perl

use strict;
use warnings;
use SOAP::Lite;
use Data::Dumper;

my $object;

my $method = shift;

$object = SOAP::Lite
  -> uri('SOAPPackage')
  -> proxy("http://localhost:8092/")
  -> $method(@ARGV);

if ($object->fault) {
  warn "FAULT " .  $object->faultstring;
  exit 1;
} else {
  print Dumper($object->result);
  exit 0;
}