package jeden::Index; use strict; use warnings; use Apache2::RequestRec (); use Apache2::RequestIO (); use Apache2::Const -compile => qw(OK); my $str; sub handler { my $a = shift; $a->content_type('text/html'); $str = sprintf < test

test

test.html
test.txt
klappt.html

EOF $a->print ($str); return Apache2::Const::OK; } 1;