sub EVT_HYPERLINK($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_HYPERLINK, $_[2] ) }
#
# Socket
#
sub EVT_SOCKET($$$) { goto &Wx::Socket::Event::EVT_SOCKET }

#--- configurazione Net::Server
my @port = map { "$_/tcp" }
                (ref $inetSocketPort ? @$inetSocketPort :
                 $inetSocketPort ne '' ? $inetSocketPort : () );
push @port, "$scheduler_sck|unix";

#!/usr/bin/perl
use Socket;
my $proto = getprotobyname('tcp');
socket(Server,PF_INET,SOCK_STREAM,$proto) || die "socket: $!";

#use strict;
#BEGIN { $ENV{PATH}='/bin' }
use Socket;
use Carp;
sub logmsg { print "$0 $$: @_ um ",scalar localtime, "\n"}

package POE::Component::Jabber::Server::SocketServer;
use strict;
use warnings;

#! /usr/bin/perl
use Socket;
 socket (SH, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || 
 die "Fehler bei der Socketinitialisierung: ".$!;

use strict;
use warnings;
use IO::Socket::TIPC;
my $socket = IO::Socket::TIPC->new(SocketType => 'rdm');
my $dest = IO::Socket::TIPC::Sockaddr->new('{1935081472, 1, 1}');

use strict;
use Symbol;
use Socket;
use vars qw($AUTOLOAD $VERSION);
( $VERSION ) = '$Revision: 1.2 $' =~ /\$Revision:\s+([^\s]+)/; # Version's

#!/usr/bin/perl -w
use strict;
use IO::Socket::SSL;
my $sock;
if(!($sock = IO::Socket::SSL->new( Listen => 5,

    use IO::Select;
    use IO::Socket;
    $lsn = new IO::Socket::INET(Listen => 1, LocalPort => 8080);
    $sel = new IO::Select( $lsn );

#
#   Net::SIP::NATHelper::Client
#   proxy for Net::SIP::NAT::Helper to communicate over sockets
#   with Net::SIP::NATHelper::Server
#   used in connection with bin/nathelper.pl

/* Copyright (C) 1995 Swedish Institute of Computer Science. */
%   File       : sockets.pl
%   Author     : Stefan Andersson
%   Updated    : 7 August 2000

use warnings FATAL => 'all';
use Apache::Connection ();
use APR::Socket ();
use Apache::Const -compile => 'OK';
use constant BUFF_LEN => 1024;

use warnings FATAL => 'all';
use Apache::Connection ();
use APR::Socket ();
use Apache::Const -compile => 'OK';
use constant BUFF_LEN => 1024;

use IO::Socket;
$peeraddr     ='89.37.70.170';
$peerport     ='7070';

#
# version 1.0  - 13 May 2000 - R.J. Clay
use IO::Socket;
#$DEBUG = 0;
if ($ARGV[0]) {

use warnings;
use Carp;
use IO::Socket::INET;
sub new {
    my ($class, $config, $semaphore) = @_;

use AMAVIS;
use AMAVIS::Logging;
use IO::Socket;
use vars qw(
         $cfg_clamd_unix_socket

:- module(backend_server_client,
       [connect_to_backend_server_over_socket/1,
        connect_to_backend_server_over_socket/2,
        close_backend_server_socket/0,

use IO::Socket::SSL;
# https port is 443, the port iTunes connects on for ssl
# construction is not working correctly

#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
my $socket = new IO::Socket::INET(
     LocalAddr => '127.0.0.1',

:- compile('$REGULUS/Examples/Toy1/Prolog/toy_backend_slow_socket_server').
:- server(7022).
:- halt.

:- compile('$REGULUS/Examples/Toy1/Prolog/toy_backend_socket_server').
:- server(1985).
:- halt.

#################################
# gnuBot Socket Code
# RCS Id: $Id: socket.pl,v 1.5 2000/04/13 01:30:45 zoot Exp $
use Socket;

package TestAPR::socket;
use strict;
use warnings FATAL => 'all';