Select Code to Download

#!/usr/bin/perl

...
  print "int $key \n";
  print " ip address ",$int{$key}{ip}->print_cidr(), "\n";
}

Loopback0: 172.25.10.10 255.255.255.255 = 172.25.10.10/32
int Loopback0
Can't call method "print_cidr" without a package or object reference a
+t ./conf.pl line 83.

foreach my $key (keys %int) {
  print "int $key \n";
  print " ip address ",$int{$key}{ip}, "\n";
}

Loopback0: 172.25.10.10 255.255.255.255 = 172.25.10.10/32
int Loopback0 
 ip address MyIP=HASH(0x84eeef4)