#!/usr/bin/perl -U
#simple load balancing detector
#by  ev1lut10n
sub detect_load_balancing()
{
	our $pake_load_balancing="kagak";
	our @lb=();
	$maks_diijinkan=3;
       open(PROSES_CACING, "host  $target_domain |");
       while (<PROSES_CACING>) 
       {
	       
          $tampilan_proses =  $_ ;
	
	  if($tampilan_proses=~/has address/)
	     {
		     push(@lb, $tampilan_proses); 
		     $jumlah++;
			if($jumlah>2)
			  {
				  last;
			  }
	     }
        }
	
	if($jumlah>1)
	 {
		 our $pake_load_balancing="pake";
	 }
       close(PROSES_CACING);
       print $pake_load_balancing. " load balancing\n";
        
}

our $target_domain=$ARGV[0];
detect_load_balancing();