# Check if host ist available my @cmd_5 = ("ping -c 1 $bmw_host1",); $rc_5 = system( @cmd_5 ); print "rc5 $!\n"; my @cmd_6 = ("ping -c 1 $bmw_host2",); $rc_6 = system( @cmd_6 ); print "rc6 $!"; if ($rc_5 == 0) { print "\n\nHost: $bmw_host1\n\n\n"; $bmw_host = $bmw_host1; $global_flag_ping = 0; } elsif ($rc_6 == 0) { print "\n\nHost: $bmw_host2\n\n\n"; $bmw_host = $bmw_host2; $global_flag_ping = 0; } else { print "\n\nNo host availible\n\n\n"; print "\n Sleep \n"; sleep $download_sleep_time; $global_flag_ping = 1; }