use Win32::GuiTest qw(GetScreenRes);
my ($x, $y) = Win32::GuiTest::GetScreenRes();