our $fred = 78 ;
  local $fred = $fred ? "Still $fred" : 'undef' ;