#Apache/Hello.pm
package Apache::Hello;

use strict;
use Apache::Constants ':common';

sub handler {
   my $r = shift;

   my $ua = $r->header_in('User-Agent');

   $r->header_out("Perl-Version" => $]);

   $r->content_type("text/html");

   $r->send_http_header;

   $r->print("Hello, I see you see me with $ua.");

   return OK;
}

1;

__END__

=head1 NAME

Apache::Hello - Apache/Perl Hello World module

=head1 SYNOPSIS

#httpd.conf
<Location /hello>
SetHandler perl-script

PerlHandler Apache::Hello
</Location>

=head1 DESCRIPTION

A simple "Hello World" module, used as an example at the
1st ORA Perl conference talk on Apache/Perl.

=head1 SEE ALSO

mod_perl(3), Apache(3)

=head1 AUTHOR

Doug MacEachern