Hi,

You have specified that there is no mistake in the Server Side Code. But I am sure that There is small mistake you have done in the server Side code only. 

sub handle_connection
{
        my $x = shift;
        my $sz = <$x>;
        print $x "Testing\n";
}

[download]

Insted do as follows

sub handle_connection
{
        my $x = shift;
        
        while ( <$x> ) {
          print $x "Testing\n";
        }
        
}

[download]

The mistake what you have done is, You are getting only one line from the client ( But you are writting 100 lines from clinet side ). Once you get a single line from client you are closing the Client Side Socket Filehandle. So next time when the client tries to write another line into the server the broken connectio happened So you need to be very careful in handling the connection.

Also It is advisable to use select function in server side program so that we can check all the events happening in both server and cient file handles.

also there are some mistakes in client and Server for example in server side you are getting the port number as a command line arguement where as in client side the port is hard coded.

"Keep pouring your ideas"

In reply to Re: Cannot determine peer address by jesuashok
in thread Cannot determine peer address by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.