Nettcpwrappers

Net::TCPwrappers is a Perl interface to tcp_wrappers. SYNOPSIS use Net::TCPwrappers qw(RQ_DAEMON RQ_FILE request_init fromhost hosts_access); ... my $progname = yadd; while (accept(CLIENT, SERVER)) { my $req = request_init(RQ_DAEMON, $progname, RQ_FILE, fileno(CLIENT)); fromhost($req);... Platforms: *nix