Биллинговая система Nodeny

RESPONSE (30.018570000 sec.):
500 Can't connect to turbosms.in.ua:80 (Operation timed out)
Content-Type: text/plain
Client-Date: Thu, 25 Feb 2021 22:56:53 GMT
Client-Warning: Internal response

Can't connect to turbosms.in.ua:80 (Operation timed out)

Operation timed out at /usr/local/lib/perl5/site_perl/LWP/Protocol/http.pm line 50.

#!/usr/bin/perl

package TurboSMS;
use strict vars;
use warnings;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Request;
use Encode qw{from_to decode encode};

+my $proxy = 'http://1.2.3.4:8888';

+$ENV{PERL_LWP_ENV_PROXY} = $proxy;
+$ENV{HTTP_PROXY} = $proxy;
+$ENV{HTTPS_PROXY} = $proxy;

sub InitUserAgent{
        my($class,undef) = @_;
        $class->{http_client} = LWP::UserAgent->new(timeout=>$class->{timeout});
+        local $ENV{HTTP_PROXY} = $proxy;
+        local $ENV{HTTPS_PROXY} = $proxy;
+        $class->{http_client}->proxy(['http', 'https', 'ftp'] => $proxy);
        ref $class->{http_client} eq 'LWP::UserAgent' or return;
        $class->{http_client}->default_headers->header(
                'Content-Type'=>$class->{gw} && $class->{gw} eq 'web'?'application/x-www-form-urlencoded':'text/xml; charset=utf-8',
                'User-Agent'=>$class->{gw} && $class->{gw} eq 'web'?'Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1':'Perl/SOAP',
        );
        return 1;
}