use NetAddr::IP;
use Data::Dumper;

my $n = NetAddr::IP->new( '192.168.0.4/30' );

for my $ip( @{$n->hostenumref} ) {
    print Dumper($ip->numeric());
    print $ip->numeric(), "\n";
    }
}