Move Mouse Cursor Test Perl

#!/usr/bin/perl
#
#
# Basic test to move a Mouse Cursor using Perl
#
#

use X11::GUITest qw(:ALL);

print DefaultScreen();
($x, $y) = GetMousePos();
print "$x $y \n\n";
MoveMouseAbs(650,250);
sleep(1);
($x, $y) = GetMousePos();
print "$x $y \n\n";