use Net::Netmask;
use Net::Ping::External qw/ ping /;

ping( 'host' => $_ ) for ips( '10.0.0.0/29' );

sub ips {
    my $net = Net::Netmask->new(@_);
    wantarray ? $net->enumerate : \@{$net->enumerate};
}