my @window = FindWindowLike(0, "Notepad", "");
print "$_\n" for @window;