my $ssh;
 my $LOGIN_TIMEOUT = 60;
 my ( $ssh_stdout, $ssh_stderr, @ssh_result ) = Capture::Tiny::capture
    {
      $ssh = Net::OpenSSH->new(
         $ip_address,
         batch_mode => 1,
         timeout => $LOGIN_TIMEOUT,
         kill_ssh_on_timeout => 1,
         master_opts => [ -o => "StrictHostKeyChecking=no", 
                          -o => "ConnectTimeout=60", 
                          -o => "ForwardX11=no" ],
                );
    };