package MODPERL::SausageGrinder;

$MODPERL::SausageGrinder::foo = "bar";
our $foo;    # Associates $foo with $MODPERL::SausageGrinder::foo
print $foo;  # bar