use SOAP::Lite; 
$SOAP::Constants::DO_NOT_USE_CHARSET = 0;
$SOAP::Constants::PREFIX_ENV= "s";
$SOAP::Constants::DEFAULT_XML_SCHEMA = undef;

#Other code

sub getLanguagesForTranslate {
    my ($self) = @_;
    my $token = $self->getAccessToken();
    my $soap = SOAP::Lite->proxy('http://api.microsofttranslator.com/V2/Soap.svc')
                         ->on_action(sub {return                                 '"http://api.microsofttranslator.com/V2/LanguageService/GetLanguagesForTranslate"'})
                         ->readable(1)
                         ->encodingStyle("")
                         ->encoding(undef);

    $soap->transport->http_request->header("Authorization" => $token);
    my $method = SOAP::Data->name('GetLanguagesForTranslate')->attr({xmlns => 'http://api.microsofttranslator.com/V2'});
    my @params = ( SOAP::Data->name("appId")->type("string")->value("")->type(""));
    my $answer = $soap->call($method => @params);
    return $answer->result->{string};
}
</p>