use strict;

package MODPERL::SausageGrinder;
my $foo = 0;

sub printfoo { print "foo is $foo\n"; }
sub setfoo   { $foo = shift; }

package MAIN;

MODPERL::SausageGrinder::printfoo;
MODPERL::SausageGrinder::setfoo(42);
MODPERL::SausageGrinder::printfoo;

# prints:
#  foo is 0
#  foo is 42