Select Code to Download

#!/usr/bin/perl
use strict;
...
for (@windows) {
    print "$_>\t'", GetWindowText($_), "'\n";
}

1442758>        'D:\junk\gui.pl - Notepad++ [Administrator]'