#!/usr/bin/perl

use strict;
use warnings;

use Net::DBus;
use Net::DBus::Reactor;

my $bus = Net::DBus->session;
my $service = $bus->get_service('org.gnome.Rhythmbox');
my $player = $service->get_object('/org/gnome/Rythmbox/Player', 'org.gnome.Rhythmbox.Player');

$player->connect_to_signal("elapsedChanged", sub { print ".." } );

my $reactor = Net::DBus::Reactor->main;
$reactor->run;

exit(0);