Perl SOAP::Lite сервер

Question

Я создал следующий сервер SOAP::Lite в Perl:

use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
-> dispatch_to('Test')
-> handle;

package Test;
sub Calculate {

...

}

Затем я создал Perl-клиент для тестирования веб-сервиса, и все прошло хорошо. Но мне пришлось создать файл WSDL с информацией об этом веб-сервисе SOAP. Когда я протестировал файл WSDL в общем онлайн-клиенте SOAP ( http://www.soapclient.com/soaptest.html), я начал получать некоторые ошибки, касающиеся выполнения метода Calculate, поэтому я принудительно использовал этот метод с помощью:

SOAP::Transport::HTTP::CGI
    -> dispatch_to('Test')
    -> on_action(sub { ($first, $second, $third) = @_; print $third; }
    -> handle;

Но теперь я получаю следующую ошибку:

Denied access to method (Calculate) in class (main)

Любая помощь будет оценена.