Select Code to Download

use Log::Log4perl qw( get_logger :levels );
use Socket;
use POSIX (":sys_wait_h");
use IO::Handle;

# Create our socket.
$logger->debug("Making the socket.");
...

    exit(1);
}

CLIENT->autoflush (1);