Since you are using mod_perl, perhaps a dummy object with a DESTROY method in your startup.pl file will work. Stick all of this in at the end of your startup.pl file:

our $shutdown = My::ShutdownHandler->new();

package My::ShutdownHandler;

sub new { return bless {}, shift; }

sub DESTROY {
  #Do your thing here
};
[download]

It will get executed twice, since Apache does a restart immediately after starting, but you should be able to test for that using $Apache::Server::Starting or $Apache::Server::ReStarting. I am running mod_perl2 on the box I tested this on, and those 2 variables appear to be depricated, so I can't test that part of it. But the above seemed to execute only on shutdown of the server...

If this does work for you, it will require some heavy testing... I didn't test to see what would happen on a killall -USR1 httpd, or something sinister like killall -9 httpd.

- Cees