$msg="1;SS";
$msg .= "\015";

my $cmd = pack "i/A*", $msg;

print $socket $cmd;
while( <$socket> ){
  print unpack('A*',$_) . "\n";
}

##</code><code>##

1. RC
I10,49,54

##</code><code>##

1. RC
1. TI10,49,54