#!/usr/bin/perl
# b.pl
use strict;
use warnings;
use IO::Socket;
use less 'java';    #;-)
my $eol = "\015\012";    #sets end of line chracters for socket transmissions

my $sock = new IO::Socket::INET (
    LocalPort => '8888',
    Proto => 'tcp',
    Listen => 1,
    ) or die "Could not create socket: $!\n";

while ( my $newsock = $sock->accept() ){        #continuous loop: wait for socket connections until end of time
    while (my $incoming = <$newsock>){
        local $/=$eol;            #set default EOL to $eol so chomp works
        chomp($incoming);
        print "received: $incoming\n";
    }
    close $newsock;
    close $sock;
}