View difference between Paste ID: zjptDGbJ and qpDbKnaw

 #!/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";