Help for this page
sub this_id :lvalue { $_[0]->{this_id} = $_[1] if @_ > 1; $_[0]->{this_id}; }
$r->thisid = 10;