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
[download]

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
[download]