Select Code to Download

#! perl -w
use strict;
...
while (print $con "ping\n") { print "*" ; sleep 1 ; } ;

print "client ended: $!\n";

use strict ;
use IO::Socket ;
...
print " client hanging" ;

while (1) { print "." ; sleep 60 ; } ;