package Link;

sub FETCH {
	my $this = shift;
	return $this->{"site"};
}

sub STORE {
	my ($self,$site) = @_;
	$self->{"site"}   = $site;
}

sub print_method {
	my $self = shift;
	print $self->{"site"};
}

sub TIESCALAR {
	my $class = shift;
	my $link  = shift;
	my $this  = {};
	bless($this,$class);
	$this->{"site"} = $link;
	return $this;
}

1;


##</code><code>##

use Link;

tie my $var,"Link","http://somesite.com";
$var = "http://anothersite.com";
$var->print_method;
print $var;