#!/usr/bin/perl

use strict;
use warnings;
$\="\n";

{
    package LinkClass;

    sub new {
	my $scalar="link";
	my $self=\$scalar;
	bless $self;
	return $self;
    }

    sub print {print ${$_[0]}}

    sub url :lvalue { ${$_[0]} }
}

my $obj=LinkClass->new();

$obj->print();

$$obj="link2";
$obj->print();


$obj->url="link3";
$obj->print();

__END__
link
link2
link3