use strict;
use warnings;

use IO::Socket::INET;

# Create a listening socket at 127.0.0.1, port 5000
my $daemon = IO::Socket::INET->new
        ( Listen => 3,
          LocalAddr => '127.0.0.1',
          LocalPort => '5000',
          Reuse => 1,
          Proto => 'tcp'
        )
    || die ">> FATAL: coulnt create tcp server";

my $client;
# Done every time $client connects
while( $client = $daemon->accept ) {
   # Send "hello" to client
   print $client "Hello\n";
   # Get a line from client
   my $response = <$client>;
   ### do some stuff
   # Close the connection
   close($client);
}