sub DESTROY
{
  local $@;

  foo();
}