#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use threads;

system("clear");
print "Server Listening on tcp/7890\n";

my $lsn = new IO::Socket::INET(
   Listen    => '10',
   LocalPort => '7890',
   Proto     => 'tcp',
   ReUse     => 1,
) or die $!;

sub do_stuff {
   my $sock = shift;
   print "Client connected\n";

   while( my $input = <$sock> ) {
      chomp( $input );
      print "$input\n";
   }
   print "Client disconnected\n";
}

threads->create( \&do_stuff, $lsn->accept, )->detach while 1;