perl -MWin32::GUI -wle "print Win32::GUI::GetForegroundWindow()"