printf "PID $$: IO::Socket calling accept(%s, %s)\n", $new, $sock;
    $peer = accept($new,$sock);
    printf "PID $$: IO::Socket accept() call returned\n";
    return unless $peer;