use Restricted;
RESTRICT $creditCard, sub { die "locked variable!" };
print $creditCard;  # KABOOM!
print UNRESTRICT($creditCard); # OK