#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11146183
use warnings;
use IO::Socket::INET;

$SIG{CHLD} = 'IGNORE'; # NOTE
my $socket = new IO::Socket::INET (
    LocalHost => '0.0.0.0',
    LocalPort => '5000',
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1);
die "cannot create socket $!n" unless $socket;

while( 1 ) # NOTE because you don't want Interrupted system call to exit the server
  {
  if( my $new_sock = $socket->accept() )
    {
    if( my $pid = fork() )
      {
      # parent, nothing to do
      }
    elsif( defined $pid )
      {
      print while <$new_sock>; # child
      exit;
      }
    else
      {
      die "Cannot fork: $!";
      }
    }
  elsif( $! =~ /Interrupted system call/i )
    {
    # just ignore
    }
  else
    {
    die "$! on accept call"; # some serious error
    }
  }