http://www.perlmonks.org?node_id=58588


in reply to Re: Port stuff
in thread Port stuff

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]

In Section Seekers of Perl Wisdom