package Mason::MyDynHandler;

sub handler 
{
	my($r) = @_;
	
	my $output = "%print STDERR $m->session\n alert("foo");"; 

	my $mi = HTML::Mason::Interp->new(
		#request_class => 'MasonX::Request::WithApacheSession'
	);
	my $c = $mi->make_component(comp_source => $output);
	$realOutput = $mi->exec($c);
	
	print $realOutput; 
	
	return OK;
	
}