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