package Me;

TIESCALAR { bless \(my $x = $_[1]), $_[0] }
FETCH { die "cannot take it away" }

package main;

tie $0, Me;

eval { $ENV{'you'} = $0 =~ s/sky//; 1 } || print $@;