$/ = undef;
my $answer = <$socket>;