Select Code to Download

  *STDIN = $c; # $c is child socket

    open( STDIN,  "<&".fileno($c) ) # also closes old STDIN
        or  die "Can't redirect STDIN from socket: $!\n";
    open( STDOUT, ">&".fi­leno($c) ) # also closes old STDOUT
        or  die "Can't redirect STDOUT to socket: $!\n";