use Win32::GuiTest qw/SendKeys IsKeyPressed :VK/;
[...]
       if (IsKeyPressed(VK_SHIFT)) { # bzw. VK_ALT / VK_CONTROL
           print LOG "SHIFT wurde gedrückt\n";
           SendKeys "{PAUSE 1}";
       }
[...]