use CGISwitch;
-or-
use CGI::Switch This, That, CGI::XA, Foo, Bar, CGI;
my $q = new CGI::Switch;
new method tries to call new in the three packages Apache::CGI, 
CGI::XA, and 
CGI. It returns the first 
CGI object it succeeds with.
The import method allows you to set up the default order of the modules to be tested.
perl, Apache, CGI, 
CGI::XA(3)