sub AUTOLOAD
{ print "AUTOLOAD(@_)\n";
    my $self = shift;
print $self, " $AUTOLOAD\n@{[caller]}\n";
    $AUTOLOAD =~ s/.*:://;
    $AUTOLOAD =~ tr/a-z/A-Z/;

    return tied(*{$self})->$AUTOLOAD(@_);
}