my $new_sock = $sock->accept() or die "No one came!";
my $pid = fork;
defined $pid or die "unable to fork";
if (!$pid) {
  open STDIN, '<&', $new_sock or exit(1);
  open STDOUT, '>&', $new_sock or exit(1);
  exec "/bin/cat";
  exit(1);
}
waitpid( $pid, 0 );