http://qs1969.pair.com?node_id=210560

our *hearts; sub Tie1::TIESCALAR { bind( hearts, "christian.love" ); } tie $tie1, "Tie1"; bless $tie1;
Oh, here's another meaning of "bind":
our $hearts; sub Tie1::TIESCALAR { $hearts =~ /christian.love/; } tie $tie1, "Tie1"; bless $tie1;