The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Net-Proxy-0.13
River stage one • 1 direct dependent • 1 total dependent
6 ++
/ forwarder.pl

NAME

forwarder.pl - An example TCP port forwarder

SYNOPSIS

forwarder.pl [ options ]

OPTIONS

    --help                    Display this help
    --manual                  Longer manpage
    --verbose                 Increase verbosity (may be used several times)
    --proxy  [<host>:]<port>  Local port to be forwarded (default: 10000)
    --server [<host>:]<port>  Destination server         (default: 10001)
    --connections <n>         Maximum number of connection to accept
                              (0 means never stop, default is 1)

DESCRIPTION

This script is an example port forwarder written with Net::Proxy.

If run for a limited number of connections, it prints a small wallclock/CPU time report at the end.

It is used to profile Net::Proxy itself, by using Devel::DProf and the bench.pl script (also distributed in the eg/ directory of the Net-Proxy distribution.

AUTHOR

Philippe Bruhat (BooK), <book@cpan.org>.

COPYRIGHT

Copyright 2008 Philippe Bruhat (BooK), All Rights Reserved.

LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.