sub format_refaddr {
  require Scalar::Util;
  sprintf our $refaddr_format, Scalar::Util::refaddr(shift);
}