Select Code to Download

200 OK\015\012
Some-Header: value\015\012
...
Body\015\012
Body\015\012
Body\015\012

# set input operator to CRLF
$/ = "\015\012";
...
while ( my $body = <STDIN> ) {
    # do whatever
}

some very very very very very very
    very very very long single line
    that just keeps on and on and on
    going and going and going
finally we get to a real new line.....