#!/usr/bin/perl -w
use CGI::Carp 'fatalsToBrowser';
use utf8;

*SOAP::Serializer::as_base64Binary = \&SOAP::XMLSchema2001::Serializer::as_string;

my $soap_transport = SOAP::Transport::HTTP::CGI->dispatch_to('my_serve
+r');
$soap_transport->serializer->encoding('UTF-8');
$soap_transport->handle();

=begin WSDL
        _RETURN $string
        _DOC fonction de test du web service
=cut
sub test {
    my $response = "ייי";
    
    return $response;
}