my %ipaddress_namei = ();

while(1)
{
        print "Enter IP address of Bond2\n";
        my $bond2 = <STDIN>;
        chomp($bond2);
        if(&validate_ip($bond2))
        {
                $ipaddress_namei{bond2} = {$bond2};
                last;
        }

}

sub validate_ip
{
        #return 0;
        return 1;
}