package X;
use CGI;  
$q = CGI->new;
package Y;
use CGI;  
$r = CGI->new;

print $X::q->param('a'), " = ", $r->param('a');