#!/usr/bin/perl

use DCOP;

$client = new DCOP;
$client->attach();

$apps = $client->registeredApplications();

foreach $app (@$apps) {
  $appLine .= "$app ";
}

$app = `kdialog --combobox "Chose an Application to Minimize" $appLine`;

chomp($app);

$interfaces = $client->remoteObjects($app);
$windowCount = 0;

foreach $interface (@$interfaces) {
  chomp($interface);
  if($interface =~ /mainwindow/) {
    $object = $client->createObject($app, $interface);
    $object->minimize();
    $windowCount++;
  }
}

system("kdialog --msgbox \"Minimized $windowCount window(s).\"");