#!/usr/bin/perl
use strict;
use warnings;
use SOAP::WSDL;
use SOAP::Lite +trace => 'debug';

my $soap = SOAP::WSDL->new(
    wsdl => 'file://root/Desktop/duckie/primes.xml',
);  
$soap->wsdlinit(
    servicename => 'PrimeNumbers',
    portname    => 'PrimeNumbersSoap',
);    

my $result = $soap->call('GetPrimeNumbers');
print $result, "\n";