open STDIN,  "<&", $sock or die "Cannot dup sock to STDIN: $!";
open STDOUT, ">&", $sock or die "Cannot dup sock to STDOUT: $!";