Как отправлять запросы из LWP через сокет тоннеля возвращаемый Net::OpenSSH?

Question

[Rozello]

Имеется код следующего вида:

#!/usr/bin/env perl

use utf8;
use strict;
use warnings;
use feature qw/say switch unicode_strings/;

use Data::Dumper;
use Net::OpenSSH;
use LWP::UserAgent;

my $ssh = Net::OpenSSH->new("192.168.1.1", user => 'user', password => 'PaSsWoRd' );
$ssh->error and die "Couldn't establish SSH connection: ". $ssh->error;

my ($socket, $pid) = $ssh->open_tunnel('test.com', 80);
say "Socket[$socket] PID[$pid]";

my $ua = LWP::UserAgent->new;

Как заставить тот самый $socket стать сокетом для подключений у LWP?
Варианты поднять локальный сокс прокси сервер при помощи клиента ssh и пустить LWP через этот прокси сервер как через обычный сокс не подходят.

Comments

[parserpro]

А что это вы такое сделать пытаетесь?
Почему не просто HTTPS?

[Rozello]

parserpro: Нужно получить доступ к сервисам серверов которые находятся за NATом, не вывешивая сами сервисы наружу, но при возможности получить подключение через ssh к одному из серверов за NATом.

[parserpro]

А нельзя ли локально поднять SSH-туннель до сокета и LWP запускать уже на локальный адрес?
С MySQL-ем такое работает.

[Rozello]

parserpro: Как запасной вариант держу это в голове, но хотелось бы обойтись без этого.