sub render_file { my ( $x, %p ) = @_; my $content = read_file( $p{name}, binmode => ':raw' ); print $content; return Apache2::Const::OK; }