use strict;
use warnings;
use Win32::GuiTest;

while (my $window = findWindow("Calculator")) {
    print("calculator window is open\n");
    sleep 2;
}

print "Calculator window closed\n";


sub findWindow {
    my ($caption) = @_;
    my @windows = Win32::GuiTest::FindWindowLike(undef, "Calculator");

    return $windows[0];
}

##</code><code>##

calculator window is open
calculator window is open
calculator window is open
calculator window is open
Calculator window closed