sub CONST::TIESCALAR { bless \(my $v = pop), shift }
  sub CONST::FETCH { ${(shift)} }

  tie $x, CONST => 4;

  print "$x\n";
  $x = 7; # run-time error