Select Code to Download

<Location /site/>  
SetHandler perl-script  
PerlHandler Apache::ROOT::cgi_2dbin::index_2ecgi 
PerlSendHeader On  
AllowOverride None

sub DESTROY {
    my $self = shift;
    my $me = ref($self);
    print carp "i'm dying.....$me\n";
}

[Tue Feb 19 11:08:57 2002] null: i'm dying.....Session
[Tue Feb 19 11:08:57 2002] null:  at /dev/null line 0
...
[Tue Feb 19 11:08:57 2002] null: i'm dying.....Session
[Tue Feb 19 11:08:57 2002] null:  at /dev/null line 0
[Tue Feb 19 11:08:59 2002] [notice] caught SIGTERM, shutting down

[Tue Feb 19 11:11:39 2002] null: Attempt to free unreferenced scalar.