<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#Apache/Hello.pm
package Apache::Hello;

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

sub handler {
    my $r = shift; 

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

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

    $r-&gt;content_type("text/html"); 

    $r-&gt;send_http_header;

    $r-&gt;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
 &lt;Location /hello&gt;
 SetHandler perl-script

 PerlHandler Apache::Hello
 &lt;/Location&gt;

=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
</pre></body></html>