for(my $i=0; $i <= 10; $i++)
{
   print $new_sock "$i\n";
}

##</code><code>##


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