怎么利用mod_perl注册全局变量而不释放？

bloves

有无办法利用mod_perl环境注册全局变量,长驻内存呢？
比如我在startup.pl
声明our $cache;
然后在文件a:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$cache->;{key}->;{bloves}->;{test}->;{id}="1111111"; # 我的想法是注册数据到内存，不释放.只到我使用undef函数释放
print $cache->;{key}->;{bloves}->;{test}->;{id};
#现在我调用文件a.pl.运行
然后我在调用文件b:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "$cache->;{key}->;{bloves}->;{test}->;{id}"; # 我希望这里能得到我文件a，注册的数据的值，但却得不到，
print "<br>;test...........";
谁知道是否有办法解决这个问题呢？