#!/usr/bin/perl -w
use strict;

use Win32::GuiTest qw< GetCursorPos MouseMoveAbsPix >;

sleep 5;
my( $x, $y )= GetCursorPos();
my @dx= ( 10, -10, -10, 10 );
my @dy= ( 10, 10, -10, -10 );

while( 1 ) {
    sleep 1;
    my( $x1, $y1 )= GetCursorPos();
    exit
        if(  $x != $x1  ||  $y != $y1  );
    $x += $dx[0];
    push @dx, shift @dx;
    $y += $dy[0];
    push @dy, shift @dy;
    MouseMoveAbsPix( $x, $y );
}