use Win32::GuiTest qw(SendKeys);
use Win32::KeyState qw(:get);
SendKeys("{CAPS}") if GetCapsLock();