#! /usr/bin/perl

use strict;
use lib '/var/www/perl-bin';
use SOAP::Transport::HTTP;

print STDERR ("service called\n");

SOAP::Transport::HTTP::CGI
    -> dispatch_to('testSoap')
    -> handle;
exit(0);
[download]

package testSoap;
use DBI;

sub get{
    print STDERR "module called\n";

    my ($self,$id) = @_;
    my $userinfo = {
    ID => 0,
    first => '',
    surname => '',
    age => 0,
    phone => ''
    };



    if ($id != 0 ){

    my $dbh = DBI->connect('DBI:mysql:CF:' . '127.0.0.1',  '<username>
+',  '<password>');

    my $sth = $dbh->prepare("select * from user where id=$id");

    $sth->execute;

    my $stuff= $sth->fetchrow_hashref;

    if ($stuff){

        $userinfo->{ID} = $stuff->{id};
        $userinfo->{first} = $stuff->{firstname};
        $userinfo->{surname} = $stuff->{surname};
        $userinfo->{age} = $stuff->{age};
        $userinfo->{phone} = $stuff->{phone};
    }


    }


    return $userinfo;

}

1;
[download]

Okay I faked up a server that returns the same hash as yours and then manually re-did the WSDL - fixing the transport, SOAP version namespace and soapAction and this appears now to work:

<?xml version="1.0" encoding="UTF-8"?>
<definitions
    name="webService"
    targetNamespace="http://127.0.0.1/soapTest"
    xmlns="http://schemas.xmlsoap.org/wsdl/"
    xmlns:apachesoap="http://xml.apache.org/xml-soap"
    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
    xmlns:tns="http://127.0.0.1/soapTest"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
    xmlns:xsd1="http://127.0.0.1/webService.xsd1">
    <types>
        <xsd:schema
            targetNamespace="http://xml.apache.org/xml-soap"
            xmlns="http://schemas.xmlsoap.org/wsdl/"
            xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
            xmlns:xsd="http://www.w3.org/2001/XMLSchema"
            xmlns:xsd1="http://127.0.0.1/webService.xsd1">
                <xsd:complexType name="item">
                    <xsd:all>
                        <xsd:element maxOccurs="1" minOccurs="1" name=
+"key" type="xsd:anyType"/>
                        <xsd:element maxOccurs="1" minOccurs="1" name=
+"value" type="xsd:anyType"/>
                    </xsd:all>
                </xsd:complexType>
            <xsd:complexType name="Map">
                <xsd:sequence>
                   <xsd:element maxOccurs="1" minOccurs="0" name="item
+" type="apachesoap:item"/>
                </xsd:sequence>
            </xsd:complexType>
        </xsd:schema>
    </types>
    <message name="get_OUT">
        <part name="id" type="xsd:int"/>
    </message>
    <message name="get_IN">
        <part name="user" type="apachesoap:Map"/>
    </message>
    <portType name="webServicePortType">
        <operation name="get">
            <input message="tns:get_OUT"/>
            <output message="tns:get_IN"/>
        </operation>
    </portType>
    <binding name="webServiceBinding" type="tns:webServicePortType">
        <soap:binding style="rpc" transport="http://schemas.xmlsoap.or
+g/soap/http"/>
        <operation name="get">
            <soap:operation soapAction="http://127.0.0.1/testSoap#get"
+/>
            <input>
                <soap:body
                    encodingStyle="http://schemas.xmlsoap.org/soap/enc
+oding/"
                    namespace="http://127.0.0.1/testSoap"
                    parts="id"
                    use="encoded"/>
            </input>
            <output>
                <soap:body
                    encodingStyle="http://schemas.xmlsoap.org/soap/enc
+oding/"
                    namespace="http://127.0.0.1/testSoap"
                    parts="user"
                    use="encoded"/>
            </output>
        </operation>
    </binding>
    <service name="webService">
        <port binding="tns:webServiceBinding" name="webServicePort">
            <soap:address location="http://127.0.0.1/cgi-bin/webservic
+e.cgi"/>
        </port>
    </service>
</definitions>
[download]

/J\

You're a star! Thanks.

Now all I have to do is find out why coldfusion doesn't like it :(

Thanks again.