#!/usr/bin/perl
use strict;
use warnings;
use Gnome2::Wnck;

Gtk2 -> init();

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

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

foreach my $window (@windows) {
  my $name = $window -> get_name();
  my $class_name = $window -> get_class_group() -> get_name();

  print <<"EOS";
$window
  name: $name
  class name: $class_name
EOS
}