package PrintEnv;

use Apache2::Const -compile => qw(OK);
use CGI::Carp qw(fatalsToBrowser);

sub handler {
    my $r = shift;
    $r->content_type('text/html');
    die "first line...";
    print "Hallo Welt!";
    return Apache2::Const::OK;
}
1;