sub output {
        my ($self, $data) = @_;
        print $$self $data;
    }