#++
# file: fragment-change-IO
#
# Slightly modified from 
#  figure 10.3: (Psychotherapist as a forking server)
#  in Network Programming With Perl by Lincoln D. Stein
#  (c)2001 Addison-Wesley
#--

use IO::Socket;

  STDIN->fdopen($sock,"<")  or die "Can't reopen STDIN: $!";
  STDOUT->fdopen($sock,">") or die "Can't reopen STDOUT: $!";
  STDERR->fdopen($sock,">") or die "Can't reopen STDERR: $!";