#!/usr/local/bin/perl
use strict;
use warnings;
{
  package _;
  use Carp;
  sub TIESCALAR { bless {}, shift }
  sub FETCH { croak q(Don't you dare get $_)  }
  sub STORE { croak q(Don't you dare set $_)  }
}

tie $_, "_";
$_ = 1;