sub CGI::Session::flush {
package CGI::Session;
...
   warn "so far so good";
...
}