or download this
#!/usr/bin/perl -w
use strict;
...
sub Tie::TIESCALAR { return bless \$_[1] => $_[0] }
sub Tie::FETCH { return "${$_[0]} is still tied at line " . (caller())
+[2] }
sub Tie::STORE { ( ${$_[0]} = $_[1] ) =~ s/ is still tied at line \d+$
+// }