Select Code to Download

    while(1){
        shmread($key,$message,0,99);
...
        print "$t_copy - $message_copy is ", $t_copy - $message_copy, 
+"\n";
        sleep 1;
    }

SV = IV(0x1a65bf8) at 0x1a65c08
  REFCNT = 1
...
      CUR = 1
      LEN = 16
8 - 2 is 7

$message =~ s/\0+//g;