Something

# Perl function
sub write {
        my $self = shift;
        my $serial = shift || die("Serial is required");
        my $data = shift || die("Data is required");

        my $command = pack("CV",SERVER_COMMAND_WRITE,$serial).$data;
        $self->{mySocket}->send($command);
        my $buf;
        $self->{mySocket}->read($buf,4);
        my @retval = unpack("V",$buf);
        return $retval[0];
}

// C++ function so far...
// this->sockfd
unsigned long DiscStakka::write(unsignd long serial, unsigned char* data) {
	char * command;

	
}