Select Code to Download

sub flush {
    my $self = shift;
...
    }
    return 1;
}

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