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