use warnings;
use strict;
use Win32::GuiTest qw(:ALL);
until(my @window3=FindWindowLike(undef,"calculator"))
{
print("\ncan't find window\n");
sleep 1;
}
print("Calculator is not opened\n");