use Data::Validate::IP qw(is_ipv4);
use Data::Dumper;

my %ipaddress_namei = ();
print "Enter IP address of Bond2\n";
my $bond2 = <STDIN>;
$ipaddress_namei{bond2} = {$bond2};