hi everyone, I'm new in mod_perl. I rewrited the code of program from book. But, the code doesn't work. Please, help me to find error lines... : 
package HandleCGIData2;
# file: HandleCGIData2.pm

# use statements, including
# our new Apache2::Request module
use strict;
use Apache2::Const ':common';
use Apache2::Request;

sub handler {
    # shift the argument and pass it into
    # the new() method in the Apache2::Request
    # class
    my $r = Apache2::Request->new(shift);

    # we can now call param() with the Apache2::Request
    # object in a similar way to using CGI.pm
    my $name = $r->param('name') || 'John Doe';
    my $age = $r->param('age') || '50';

    # set the content type and send the header

    $r->content_type('text/html');
    # $r->send_http_header();

    # print the HTML, including our variables
    # $name and $age
    $r->print(<<EOHTML);
<html>
<head>
<title>Using Apache2::RequestIO</title>
</head>
<body bgcolor="#ffffff">
<h1>Using Apache2::Request</h1>
name = $name<br>
age = $age
</body>
</html>
EOHTML
    return OK;
}

1;

[download]

In reply to I can't find error section of code by programmerPerl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.