sub ping {
  my $ip = shift;
  my $p = `/sbin/ping -c 5 -t 7 $ip | /usr/bin/grep 'packet loss'`;
  unless ( $p =~ /(\d+)% packet loss/ ) {
    die ( "Bad Response:\n$p\n" );
  }
  my $loss = $1;
  print "Loss = $1 ";
  return ( $loss != 100 );
}