1: package MyMod;
2: #$value = "Ding!";
3: sub spit {
4:   return $value;
5: }
6: 1;

##</code><code>##

1: use MyMod;
2: print MyMod::spit(), "\n";

##</code><code>##

c:/monks/temp $perl -s ss.pl -MyMod::value="Hey Monks!"
Hey Monks!

##</code><code>##

c:/monks/temp $perl -s ss.pl -MyMod::value="Hey Monks!"
Ding!