view release on metacpan or  search on metacpan

examples/keepalive.pl  view on Meta::CPAN

#!/usr/bin/perl

##
# Keepalive.pl - demonstrates sustained connections with TCP transport.
# Steve Purkis <spurkis@engsoc.carleton.ca>
# October 24, 1998
##

use Agent;

# I know we're not an agent, but this is just a demo. ;-)

# get a TCP transport address:
my $tcp = new Agent::Transport(