Send Msg. from HTML DB App to another server : Best method?

Question

Hi folks,
I am new to HTML DB and have a question about how to best pass information from an HTML DB application to another server. I need to convert an existing Perl-based application to HTML DB.
I currently use sockets. The caller program opens the socket and sends a message across the network where a Perl service is listening on that port. Ideally, I would like to keep the Perl service on the destination server.
Specifications:
Sender : Runs HTML DB release 1.6 Oracle 10g on Windows 2003 server, IE 6
Receiver: Windows 2003 server. Basic server: No web services running.
I searched the archives and have not found any information on using sockets. Perhaps I am missing the obvious. Is there a better way?
If not, can I use Perlscript in my HTML within HTML DB? Something like this:
<SCRIPT LANGUAGE="PerlScript" RUNAT="myserver">
$window->document->write('calling socket......');
use IO::Socket;
my $sock = new IO::Socket::INET (
           PeerAddr => 'otherserver',
           PeerPort => 'xxxx',
           Proto     => 'tcp',
          die "Could not create socket: $!\n" unless $sock;
# Pass info
print $sock "var1|val1|var2|val2";
close($sock);
</SCRIPT>Any help would be greatly appreciated.
Cheers!

Answer 1

Turns out, this was quite simple with UTL_TCP. I defined the following process and then attached it to a button on the page:
DECLARE
  c  utl_tcp.connection; 
  ret_val integer;
BEGIN
  c := utl_tcp.open_connection(remote_host => 'xxx.xx.x.xxx',
                               remote_port =>  xx,
                               charset     => 'US7ASCII');
  ret_val := utl_tcp.write_line(c, 'The medium is the message'); 
  utl_tcp.close_connection(c);
END;