#!/usr/bin/perl

use strict;
use warnings;

die "Usage: $0 <net>\n" unless @ARGV == 1;
# Rudimentary check on the argument
(my $net=shift) =~ s/\.0+$/./
  or die "Supply an IP of the form <#.#.#.0>\n";

print 'Begun pings at ' . localtime, "\n";
my @p;
open $p[@p], '-|', "ping -w 5 -c 5 $net$_"
  or die "Couldn't start ping for $net$_: $!\n" for 1..255;
undef $/;
print map <$_>, @p;

__END__