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