#!/usr/bin/perl
use strict;
use DCOP;

my $client = DCOP->new;

$client->attach;

$client->isAttached()
  or die("Could not attach to DCOP server!");

my $song = $client->call("amarok", "default", "nowPlaying()");
print "nowPlaying : $song\n";
$client->detach;

exit 0;