$r->content_type('application/pdf'); my $output = do { open my $pdf, $file or die "$file: $!"; binmode $pdf; local $/; <$pdf> }; # Return the page $r->header_out( 'Content-Length' => length($output) ); $r->send_http_header; $r->print($output); return OK;