use MODPERL::SausageGrinder;
$MODPERL::SausageGrinder::foo = 1;