#!/usr/bin/perl -w
use IO::Socket::INET;

$SIG{CHLD} = sub {wait ()};
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 ($new_sock = $socket->accept()) {
   $pid = fork();
   die "Cannot fork: $!" unless defined($pid);

   if ($pid == 0) {     # This is the fork child
      $new_sock->recv(my $data, 500);
      print "$data\n";
   }
}