#!/bin/perl -w
use strict;

package Tied;

sub TIESCALAR
{
        my $class = shift;
        my $o = shift;
        bless \$o, $class;
}

sub FETCH
{
        my $self = shift;
        print "<fetch>\n";
        $self;
}

sub foo {"TiedFoo\n";}

package main;

my $o;
tie $o, 'Tied';
print $o->foo();

untie $o;
eval { print $o->foo() };
print "NoFoo\n" if $@;