my $instance;
...
if (want to disable destroy) {
   package My::Private::DESTROYless::CGI::Session;
   sub DESTROY { }
   @ISA = 'CGI::Session';
   bless $instance;
}