Select Code to Download

$x = {
    key0  => {
...
         b => var2,
    },
and so on.

  hv_store(dusr,"C",1,newSVuv(1),0);
  hv_store(dusr,"B",1,newSVuv(len),0);
  hv_store(dusr,"E",1,newSVuv(now),0);
  hv_store(dusr,"T",1,newSVuv(0),0);

  if ((fetch_uv(dusr,"T")) < now) {
    dSP;
...
}  

The correct value magically appears

SV = IV(0x8380458) at 0x83b70d8
  REFCNT = 1
...
  IV = 0
  NV = 12345
  PV = 0