This will work for the time being:

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";
}
[download]

Does anybody have any suggestions on improving this snippet? I assume it's fine as it is, but if there's anything glaring please let me know!

-- Dave