use strict;

package FOO {
    use Want;
    sub AUTOLOAD {
        print "@{[our $AUTOLOAD]}\n";
        print " ..and Im a tail!\n" if not want "OBJECT";
        return $_[0] || bless {};
    }
}

FOO->funky->node->blaah;