Select Code to Download

#!/usr/bin/perl

use strict;
...
my ($body_ref, $header_ref);
my $result = $soap->call('NewEvent', $body_ref, $header_ref);
print Dumper($result);

#!/usr/bin/perl
...

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

wsdl2perl.pl -b /root/Desktop/duck http://www50.brinkster.com/vbfacile
+inpt/np.asmx?wsdl

?xml version="1.0" encoding="UTF-8"?>
<wsdl:definitions xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" x
+mlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:s="http://www
+.w3.org/2001/XMLSchema" xmlns:soapenc="http://schemas.xmlsoap.org/soa
+p/encoding/" xmlns:tns="http://microsoft.com/webservices/" xmlns:tm="
+http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://sche
+mas.xmlsoap.org/wsdl/mime/" targetNamespace="http://microsoft.com/web
+services/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
...
    </wsdl:port>
  </wsdl:service>
</wsdl:definitions>

#!/usr/bin/perl
...
my $result = $soap->call('GetPrimeNumbers', $body_ref, $header_ref);
print Dumper($result);