Program for my "A TCP Proxy in Perl" article
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Failed to load latest commit information.
readme.txt added readme Apr 2, 2011 usage: <local port> <host:port> Mar 31, 2011


This is a simple TCP proxy written in Perl that uses IO::Socket::INET and
IO::Select abstractions to create an evented (asynchronous, on select() call
based) server.

It was written by Peteris Krumins (
His blog is at  --  good coders code, great reuse.

I modified the proxy that I had written for my "Turn any Linux computer into
SOCKS5 proxy in one command" article:

And wrote another article:


Here is how it works:

    $ ./ <local port> <host:port>

This command proxies all tcp connections to <local port> to <host:port>.


Happy proxying!

Peteris Krumins