#!perl -l

package Complainer;
use Tie::Scalar;
use base Tie::StdScalar;
use Carp;

sub STORE {
   # Warn out any status info you want here.
   carp "Tried to assign to \$_";
}

sub FETCH { $_ }

package main;

tie $_, Complainer;

$_ = 1;

local $_;