#! perl -slw
use strict;

package thing;
sub new { bless {}, $_[0]; }
sub value :lvalue { my $this = shift; $this->{VALUE};}

package main;

my $thing = thing->new;
$thing->value = undef;