17 while(my $s = $S->fetchrow_hashref) {
 18     my $ip = $$s{d07};
 19     my $start = time();
 20     printf LOG "\nService $$s{number} $ip\n";
 21     my $ping = ping($ip,1) ;
 22     printf LOG "reply \"$ping\" \nelapsed time %d seconds.\n",
              time() - $start;
 23 }
 24