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;
	
}

##</code><code>##

<FilesMatch "\.dynjs$">
        PerlSetVar Filter On
        SetHandler perl-script
        PerlHandler Mason::MyDynHandler
        PerlSetVar  MasonRequestClass            MasonX::Request::WithApacheSession
        PerlSetVar  MasonSessionClass            Apache::Session::File
</FilesMatch>