sub process {
	my ($self, $disp, %v) = @_;
	my $testpage = $$v{'testpage'};
	print "<h1>".$testpage."</h1>\n";
}