use Win32::GuiTest qw(:ALL);

my @windows = FindWindowLike(undef,'Perl-Community');
if( @windows ){
    print "Ein Fenster mit 'Perl-Community' im Titel ist schon vorhanden\";
}