package CEAS4;

use strict;
use warnings;

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

sub handler {
	my $r = shift;
	
	print "Content-type: text/html\n\n";
	print "mod_perl 2.0 rocks!\n";
	
	return Apache2::Const::OK;
}

1;