For that you should combine jeffa's responce above with this psudeo-code (I don't want to give you a solution to copy and paste) and documentation for IO::Socket may be useful too:
bind to port
for every client on port
connect to remote server
get text from remote server
send text to client
next client
Or if the text is constant
connect to remote server
store text from remote server
bind to port
for every client on port
send stored text to client
next client
|