Select Code to Download

use strict;
use warnings;
...
  print "MainReaper: Reaping the main loop with a blank packet.\n";
  $reap = IO::Socket::INET->new( Proto => 'tcp', PeerAddr => 'localhos
+t', PeerPort => '77777');
}