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

package My::ShutdownHandler;

sub new { return bless {}, shift; }

sub DESTROY {
  #Do your thing here
};