#!/usr/bin/perl

use DCOP;

@files = glob("$ENV{KDEDIR}/share/wallpapers/*.*");

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

$kdesktop = $client->createObject( "kdesktop", "KBackgroundIface" );

foreach $file (@files) {
  $kdesktop->setWallpaper($file, 2);
  print "$file\n";
  sleep(3);
}