... (unnecessary code)

my @windows = FindWindowLike(0, "$uniquename", "");
for (@windows)
{
      SetForegroundWindow($_);
      SendKeys("^{CAPS}");
}

... (unnnecessary code)