my $msg = <$new_sock>;
    print "client said '$msg'\n";