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(< Using Apache2::RequestIO

Using Apache2::Request

name = $name
age = $age EOHTML return OK; } 1;