use POE;
use POE::Filter::Stream;
use POE::Filter::Line;
use POE::Component::Proxy::TCP;

print "Starting proxy for " . $ARGV[0] . " at port " . $ARGV[1] . "\n";

$|++;

$0 = "vnctunnel " . $ARGV[0] . " source port " . $ARGV[1];

POE::Component::Proxy::TCP->new
(Alias => "ProxyServerSessionAlias",
 Port               => $ARGV[1],
 OrigPort           => 5900,
 OrigAddress        => $ARGV[0],
# DataFromClient    => sub {print "From client:", shift(), "\n";},
# DataFromServer    => sub {print "From server:", shift(), "\n";},
 RemoteClientFilter => "POE::Filter::Stream",
 RemoteServerOutputFilter => "POE::Filter::Stream",
 RemoteServerInputFilter => "POE::Filter::Stream"
);

$poe_kernel->run();
exit 0