Hi Guys,

I found the answer: Win32::GuiTest

#!/usr/bin/perl
use Win32::GuiTest;
Win32::GuiTest::MouseMoveAbsPix($x,$y);#move to absolute screen positi
+on
Win32::GuiTest::SendMouseMoveRel($x,$y);#move to relative position
exit;
[download]

Thanks for everyone
Moked