#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
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://downloads.apache.org/perl/contrib/Hello.pm">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://downloads.apache.org/perl/contrib/Hello.pm" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>