Help for this page

Select Code to Download

Select or download this

while(my $line = <$socket>){
        print "SERVER says: $line\n";
        }