view release on metacpan or  search on metacpan

Agent/Transport/TCP.pm  view on Meta::CPAN

If you pass send() a 'KeepAlive' argument containing a I<reference> to a
scalar, it will set this scalar to the remote I<socket filehandle>.  This is
meant to be used in conjunction with accept(), and is useful if you would
like to have an extended conversation with the remote host.

=back

=head1 NOTES

This module only binds to a specified address.  If you have multiple
interface addresses (ie: eth0 & eth1), and you want to listen on more than
one, you have to bind each seperately.

=head1 SEE ALSO

C<Agent> C<Agent::Transport>

=head1 AUTHOR

Steve Purkis E<lt>F<spurkis@engsoc.carleton.ca>E<gt>

=head1 COPYRIGHT

examples/dcalc.pl  view on Meta::CPAN

use Agent;

$usage = <<USAGE;

Usage:
   perl dcalc.pl [-v] [-t] serv:port host1:port [host2:port ...]

	-v = verbose mode
	-t = use threads
	hostN:port = ip:port of remote hosts (ie: Static agents)
	serv:port  = server address to bind to

USAGE

# if you want to see lots of meaningless output :-), uncomment these:
#$Agent::Transport::TCP::Debug = 1;
#$Agent::Debug = 1;
#$Class::Tom::debug = 2;

# first, set up the arguments:
my (%args, %hosts);