#CLIENT:

use strict;
use warnings;
use 5.010;

use Socket;

my $protocol = getprotobyname 'tcp';
socket my $SOCK, AF_INET, SOCK_STREAM, $protocol
    or die "Couldn't create socket: $!";

my $port = 12555;
my $host = 'localhost';
my $packed_host = gethostbyname $host
    or die "Unknown host: $!";

my $sock_addr = sockaddr_in $port, $packed_host;
connect $SOCK, $sock_addr or die "couldn't connect: $!";

my $old_out = select $SOCK;
$| = 1;
select $old_out;

print "Enter some text: ";
while (my $to_send = <STDIN>) {
    
    print $SOCK $to_send;
}

close $SOCK;