{
    undef $/;
    my $input = <$client>;
    $input =~ s/\r//g;
    my ($headers, $body) = split(/\n\n/, $input, 2);
}