while(defined(my $line = $client->getline))
{
   print $line;
}