#!/usr/bin/perl -w
# Attempt to connect to the server on each interface until successfull

use strict;
use Net::SSH qw(ssh);
 
my @host = qw[ 192.168.15.2 192.168.16.2 192.168.17.2 192.168.18.2 ];
my $stout;
 
$stout = run($host[0]);
  if ($stout == '256'){
    print "$host[0] not responding, trying $host[1]\n";
    $stout = run($host[1]);
     if ($stout == '256'){
       print "$host[1] not responding, trying $host[2]\n";
       $stout = run($host[2]);
        if ($stout == '256'){
         print "$host[2] not responding, trying $host[3]\n";
         $stout = run($host[3]);
        }
      }
   }
  else{
   exit;
  }
 
sub run { 
    my $host = $_[0]; 
    my $user = 'root'; 
    my $cmd = '/usr/local/scripts/temp.sh'; 
 
    ssh("$user\@$host", $cmd); 
     
}