sub send {
        my $self                = shift;
        my $message             = shift;
        my $compressed  = shift || 0;

#       unless($compressed) {
#               $message = Compress::LZ4::lz4_compress_hc('hallo');#$message);
#       }       
        
        my $dt   = DateTime->now( time_zone => 'Europe/Berlin');
        my $nonce = time();
        
        my $data = {
        json => {
                hms             => $dt->hms,
                text            => $message,
                nonce           => $nonce,
                        data_size       => ($self->data_size)[0],
                        start_ts        => ($self->data_size)[1],       
                sig                     => ( sha512_hex($self->secret . $nonce) )
        }
    };
        
        my $dz_mb = ($self->data_size(encode_json($data)))[0]/1024/1024;
        $data->{json}{data_size} = ($self->data_size)[0];
        $data->{json}{start_ts} = ($self->data_size)[1];
        
        $self->tx->send($data);
}