use SOAP::Lite;
    my $client = SOAP::Lite->service("http://sieve.net/sieve.wsdl");
    my $result = $client->updateSieveFilter(17);
    print $result;