my $socket = new IO::Socket::INET
  ( 
    PeerAddr => $ipAddress,  
    PeerPort => $port, 
    Proto => 'tcp'
  );

  if(defined $socket)
  {
    print $socket "Hi!\n";
    $socket.close();
  }
  else
  {
    print "Failed to connect to video server: $ipAddress, $port\n";
  }