in reply to golf challenge: one-liner netcat clone

Here's what i use to tunnel VNC sessions. Maybe it'll help. I'm not really a fan of one-liners, so i'll leave it in a readable form ;-)

use POE; use POE::Filter::Stream; use POE::Filter::Line; use POE::Component::Proxy::TCP; $|++; POE::Component::Proxy::TCP->new (Alias => "ProxyServerSessionAlias", Port => $ARGV[1], OrigPort => $ARGV[2], OrigAddress => $ARGV[0], RemoteClientFilter => "POE::Filter::Stream", RemoteServerOutputFilter => "POE::Filter::Stream", RemoteServerInputFilter => "POE::Filter::Stream" ); $poe_kernel->run(); exit 0;

Note: I don't fully understand the code (or more precise the workings of the POE:: stuff), i just copied it from various examples and modified it until it more or less worked. I *know* one shouldn't do that, but i was in a bit of hurry... And YES, it lacks strict and warnings. You wanted small code, right?

Don't use '#ff0000':
use Acme::AutoColor; my $redcolor = RED();
All colors subject to change without notice.