#!/perl -w 

use strict;
use Win32::Setupsup;

my @windows;

Win32::Setupsup::EnumWindows(\@windows);

foreach(@windows)
{
	my @proptoget = qw(focused pid);
	my %windowprop;
	
	Win32::Setupsup::GetWindowProperties($_,@proptoget,\%windowprop);
	
	foreach my $key (keys(%windowprop))
	{
		print $key."-".$windowprop{$key}."\n";
	}
}