use Net::OpenSSH;
my $ssh_proxy = Net::OpenSSH->new("$username\@domain-name");
my $proxy_command = $ssh_proxy->make_remote_command({tunnel => 1}, $device, 22);
my $ssh = Net::OpenSSH->new("admin\@$device", password => $password, proxy_command => $proxy_command);
$ssh->system;