You can also do this...

use NetAddr::IP;
use Net::Ping::External qw/ping/;
 
ping( 'host' => $_ ) 
  for map { $_->addr } NetAddr::IP->new("10.0.0.0/24")->hostenum;
[download]

... which is a bit shorter.

Best regards

-lem, but some call me fokat