Как скопировать файлы с удаленного сервера на другой удаленный сервер, используя scp_get или scp_put

Question

Я пытаюсь автоматизировать функционал.Я хотел бы скопировать файл с удаленного сервера на другой удаленный сервер, используя Perl.Как мне этого добиться?

Я попробовал следующий фрагмент кода:

#!/ats/bin/perl

use Net::OpenSSH;
use Data::Dumper;


my $source_ip = "<IP_SOURCE>";
my $credentials = {username=>'root', password=>'root@123'};


my $ssh_obj = Net::OpenSSH->new(
                $source_ip,
                user     => $credentials->{username},
                password => $credentials->{password},

            );



my $source = "root@<IP_REMOTE>/home/user/test.txt";
my $dest = "root@<IP_REMOTE_2>:/tmp/"; #Destination is a target folder in the device with the source IP. But I want it another remote IP here.
unless($ssh_obj->{SSH}->scp_get({recursive => "1", glob => 1}  , $source , $dest))
{
    print("Yoda says: 'ERROR this is. Need to fix you must'");
}

Прямо сейчас я могу войти на удаленный сервер и затем выполнить SCP оттуда.Я просто хотел узнать, возможно ли инициировать scp с удаленного сервера на другой удаленный сервер, запустив сценарий perl на другом 3-м сервере.