sub d :lvalue {
    print("$_[0]: ", defined($_[1]) ? "[$_[1]]" : "undef", "\n");
    $_[1]
  }

  our $fred = 78;
  d("post assign", d("post local", local $fred) = 90);

##</code><code>##

  our $fred = 78 ;
  local $fred = 'ho hum' ;