Program for my "A TCP Proxy in Perl" article
Switch branches/tags
Nothing to show
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Failed to load latest commit information.


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