Select Code to Download

#! perl -slw
use strict;
...
print while <$client>;

print "client went away";

#! perl -slw
use strict;
...
print $con "ping"  while sleep 1;

print "client ended";