全く動作確認していませんが、多分、↓こんな感じです。 #!/usr/local/bin/perl use strict; use File::Path; use File::Temp qw/tempfile tempdir/; use Log::Log4perl; use Net::OpenSSH; use Data::Dumper; #┌─────┐ ┌──────┐ ┌─────┐ #│caller ├──┤proxy …