my $socket = IO::Socket::INET->new( PeerAddr => $cacheServer,
                                     PeerPort => $cachePort,
                                     Proto    => 'tcp' );
if( $socket ) {
    print "Connected to $cacheServer at tcp port $cachePort\n";
    close( $socket );
} else {
    print "*** Couldn't connect to $cacheServer at tcp port $cachePort!!\n";
}