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

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

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