use POE qw(Component::Proxy::TCP);
POE::Component::Proxy::TCP->new(
   Alias             => "LDAPProxyServerSessionAlias",
   Port              => $local_server_port,
   OrigPort          => $remote_server_port,
   OrigAddress       => $remote_server_host,
   DataFromClient    => \&data_from_client_handler,
   DataFromServer    => \&data_from_server_handler,
);

sub data_from_client_handler {...}
sub data_from_server_handler {...}