use Attribute::Property;

package Cool;

sub new  : New;
sub name : Property { $_ = reverse uc; 1 }

package main;

my $obj = Cool->new;
$obj->name = "My right foot";
print $obj->name, "\n";