my $connected;
my $tries = 1;
do {  print "Attempt $tries to connect\n";    
      $connected = &xferOpen ('SESSION', $clusterHost,"compression", "yes", @sshPort);  
      $tries++; 
   } until $connected or $tries > 3;