sub sendCartAdd {
my $r_socket = shift;
my $index = shift;
my $amount = shift;
my $msg = pack("C*", 0x26, 0x01) . pack("S*", $index) . pack("L*", $amount);
$$r_socket->send($msg) if $$r_socket && $$r_socket->connected();
print "Sent Cart Add: $index x $amount\n" if ($config{'debug'} >= 2);
}

sub sendCartGet {
my $r_socket = shift;
my $index = shift;
my $amount = shift;
my $msg = pack("C*", 0x27, 0x01) . pack("S*", $index) . pack("L*", $amount);
$$r_socket->send($msg) if $$r_socket && $$r_socket->connected();
print "Sent Cart Get: $index x $amount\n" if ($config{'debug'} >= 2);
}