#!/usr/bin/perl
use warnings;
use strict;
use Gtk2;
use Gnome2::Wnck;
Gtk2->init();

while (1) {
         sleep 1;

Gtk2->main_iteration while Gtk2->events_pending; 

         my $screen = Gnome2::Wnck::Screen->get(0);
         $screen->force_update();

         my @windows_list = $screen->get_windows();

         foreach my $window (@windows_list) {
                 my $name = $window->get_name();
                 print "name = $name\n";
         }

 print "\n\n";
 sleep 10;
}