Select Code to Download

my $p = Net::Ping->new("icmp",$timeout,32);
while (1) {
...
   }
   sleep $yawn;
}

2003-08-15,17:02:19,10.10.10.50,62,46,62,46
2003-08-15,17:02:20,10.10.10.60,109,46,62,62
...
2003-08-15,17:02:23,10.10.10.70,46,62,46,62
2003-08-15,17:02:23,10.10.10.80,62,46,62,46
2003-08-15,17:02:24,10.10.10.90,62,62,46,62

2003-08-15,17:11:04,10.10.10.50,46,62,46,46
2003-08-15,17:11:04,10.10.10.60,62,62,46,62
...
2003-08-15,17:11:05,10.10.10.80,46,62,62,46
2003-08-15,17:11:05,10.10.10.90,62,46,62,62
2003-08-15,17:11:07,10.10.10.60,2003-08-15,17:11:08,10.10.10.70,2003-0
+8-15,17:11:08,10.10.10.80,2003-08-15,17:11:08,10.10.10.90,2003-08-15,
+17:11:11,10.10.10.50,2003-08-15,17:11:11,10.10.10.60,2003-08-15,17:11
+:11,10.10.10.70,2003-08-15,17:11:11,10.10.10.80,2003-08-15,17:11:12,1
+0.10.10.90,