Сокеты без использования socket.pm

    #!/usr/bin/perl -w
    #use strict;
    BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
    #use Socket;
$AF_INET=2;
$SOCK_STREAM=1;
$PF_INET=$AF_INET;
$SOL_SOCKET=0;
$SO_REUSEADDR=1;
$SOMAXCONN="10";
$sockaddr = 'S n a4 x8';
    #use Carp;
    my $EOL = "\015\012";
 
    sub logmsg { print "$0 $$: @_ at ", scalar localtime, "\n" }
 
    my $port = shift || 2345;
    my $proto = getprotobyname('tcp');
 
    ($port) = $port =~ /^(\d+)$/                        or die "неверный порт";
 
    socket(Server, $PF_INET, $SOCK_STREAM, $proto)        || die "socket: $!";
    setsockopt(Server, $SOL_SOCKET, $SO_REUSEADDR,
                                        pack("l", 1))   || die "setsockopt: $!";
    bind(Server, pack($sockaddr, $AF_INET, 0, $thataddr))        || die "bind: $!";
    listen(Server,$SOMAXCONN)                            || die "listen: $!";
 
    logmsg "сервер запущен на порту $port";
 
    #my $paddr;
 
    $SIG{CHLD} = \&REAPER;
 
    for ( ; $paddr = accept(Client,Server); close Client) {
        my($port,$iaddr) = sockaddr_in($paddr);
        my $name = gethostbyaddr($iaddr,$AF_INET);
 
        logmsg "соединение с $name [",
                inet_ntoa($iaddr), "]
                с порта $port";
 
        print Client "Привет, далекий $name, сейчас ",
                        scalar localtime, $EOL;
    }

    #!/usr/bin/perl -w
    #use strict;
    #use Socket;
$AF_INET=2;
$SOCK_STREAM=1;
$PF_INET=$AF_INET;
$sockaddr = 'S n a4 x8';
    my ($remote,$port, $iaddr, $paddr, $proto, $line);
 
    $remote  = shift || 'localhost';
    $port    = shift || 2345;  # случайный порт
    if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
    die "Нет порта" unless $port;
    $iaddr   = gethostbyname($remote)               || die "не хост: $remote";
    $paddr   = pack($sockaddr, $AF_INET, $port, $iaddr);
 
    $proto   = getprotobyname('tcp');
    socket(SOCK, $PF_INET, $SOCK_STREAM, $proto)  || die "socket: $!";
    connect(SOCK, $paddr)    || die "connect: $!";
    while (defined($line = <SOCK>)) {
        print $line;
    }
 
    close (SOCK)            || die "close: $!";
    exit;