12c12,16
<     my @content = <F>;
---
>     my $content;
>     {
>       local $/;
>       my $content = <F>;
>     }
16c20
<     $r->print(@content);
---
>     $r->print($content);