#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Devel::SimpleTrace;
use SOAP::WSDL;

my $soap = SOAP::WSDL->new(
    wsdl => 'file:///root/Desktop/duck/primes.wsdl',

);  
my ($body_ref, $header_ref);
my $result = $soap->call('GetPrimeNumbers', $body_ref, $header_ref);
print Dumper($result);