#!/usr/bin/perl
#

# Test program to push position variables into shared memory
# and make sure it got there.
# 

require "./poslib.pl";


#pushpos(5,15,45);


main {
  while (1) {
    ($x,$y,$theta) = poppos();
    print "checking x=$x, y=$y, and theta=$theta\n\n";
    sleep 3;
  }
}