my $line;
while( defined($line=<$socket>)) {
    print $line;
}