{
    local *CGI::sub1 = \&sub1;
    # do some CGI things
}