Help for this page
package Site::CGI; ... # . . . 1;
use Site::CGI; # instead of use CGI; my $query = Site::CGI->new; ... print $query->my_sub; # etc