#!/usr/local/bin/perl -w

#use strict;
use IO::Socket;

#my ($socket, $child_pid, $line) = ();

$socket = IO::Socket::INET->new
(
        PeerAddr => '123.123.123.123',  # changed ip for post =)
        PeerPort => '5123',
        Proto    => "tcp",
        Type     => SOCK_STREAM
) or die "Could not create client: $!\n";

unless (defined($child_pid = fork())) {die "Can not fork: $!\n"};

if ($child_pid) {
        while ($line = <>) {
                print $socket $line;
        }
} else {
        while ($line = <$socket>) {
                print "SERVER: $line";
        }
}

##</code><code>##

#!/usr/local/bin/perl -w

#use strict;
use IO::Socket;

#my ($server, $client, $child_pid, $line) = ();

$server = IO::Socket::INET->new
(
        LocalPort => '5123',
        Type      => SOCK_STREAM,
        Reuse     => 1,
        Listen    => 5
) or die "Could not create server: $!\n";

while ($client = $server->accept()) {
        unless (defined($child_pid = fork())) {die "Can not fork: $!\n"};
        if ($child_pid) {
                print "CLIENT: $client\n";
                while ($line = <$client>) {
                        print "CLIENT: $line";
                }
        } else {
                while ($line = <>) {
                        print $client $line;
                }
        }
}