package X;
use CGI;  
$q = CGI->new;
$q->param('test','test value');
print "In Package X: ", $q->param('test'), "\n";

package Y;
use CGI;  
$r = CGI->new;
print "In Package Y: ", $r->param('test'), "\n";