package Site::CGI; use CGI; @ISA = qw/CGI/; # subroutine definitions, object instance is first arg # . . . 1; #### use Site::CGI; # instead of use CGI; my $query = Site::CGI->new; # . . . print $query->my_sub; # etc