Select Code to Download

$sock->input_record_separator(chr(3));
while (<$sock>) {
  ... # $_ contains one complete message
}

$STX=chr(03);