#!/usr/bin/perl
# This script has been written by Jarek Jurasz jurasz@imb.uni-karlsruhe.de
#$|++;  ## use this if you don't want to use STDERR
use Win32::GuiTest qw(GetCursorPos);
while (1)
    {
      my ($x, $y) = GetCursorPos();
      print STDERR "\rx:$x  y:$y   -";
      sleep 1;
    }