Select Code to Download

C:\test>perl 831580.pl 1234
enter port: 1234
...
from 192.168.1.31:52479:
from 192.168.1.31:52479:
from 192.168.1.31:52479: hfrom 192.168.1.31:52479: efrom 192.168.1.31:
+52479: lfrom 192.168.1.31:52479: lfrom 192.168.1.31:52479: ofrom 192.
+168.1.31:52479:

        while( my $tmp = <STDIN> ) { ##sysread(STDIN, $tmp, BUFSIZE) )
+ {

                                open $client, "+<$fileno" || die "$!";
                                syswrite( $client, $msg_t ) || die ": 
+$!";