my $ref= $obj->buffer;
    print "Unread buffer is '$$ref'\n";