Help for this page

Select Code to Download

Select or download this

$hash{$ebiz_siebel_dns}{site}   = $ebiz_siebel_dns;
$hash{$ebiz_siebel_dns}{ip_now} = $ebiz_siebel_ip;
...
   print "$j -> $hash{$j}{ip_now}\n";
   print "$j -> $hash{$j}{ip_new}\n";
}

Select or download this

my %sites = ( 'messenger.hotmail.com' =>
                 { ipnow => '207.46.104.20', type => 'A' },
...
    print "$dns -> $sites{$dns}{ipnow}\n";
    print "$dns -> $sites{$dns}{ipnew}\n";
}