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);
}