#!/usr/bin/perl
use strict;
use warnings;
use Win32::GuiTest qw(FindWindowLike GetWindowText);

my @windows = FindWindowLike(undef, "", "Notepad++");

for (@windows) {
    print "$_>\t'", GetWindowText($_), "'\n";
}

##</code><code>##

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