#simple load balancing detector

#!/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();