use strict;
use warnings;
use Win32::GuiTest qw(:ALL);
my @window=FindWindowLike(undef,"Calculator");
while($window[0])
{
print("calculator window is open");
sleep 2;
}