#!/usr/bin/perl -w
$|++;
use strict;
use IO::Socket;

my $main_sock = new IO::Socket::INET(
 LocalHost => '24.71.183.153',
 LocalPort => 7800,
 Listen => 1,
 Proto => 'tcp',
 Reuse => 1
) or die "Oops: $!";

while (my $new_sock = $main_sock->accept()) {
 if (my $pid = fork()) { # Parent
  next;
 } elsif (defined $pid) { # Child
  print $new_sock 'Hello there, it is now ',
   localtime, "\n";

  while (defined(
   chomp( my $buf = <$new_sock> ) )
  ) {
   print "Client said: $buf\n";
   if ($buf =~ /^quit/) {
    close $new_sock; last;
   }
  }
 } else {
  die "Cannot fork: $!" unless defined($pid);
 }
 exit(0);
}

exit(0);