#!/usr/bin/perl
use strict;
use warnings;
use Audio::XMMSClient::Glib;
$| = 1;
my $xmms = Audio::XMMSClient::Glib->new('playtime');
$xmms->connect or die;
$xmms->request(signal_playback_playtime => \&pt_callback);
$xmms->loop;
sub pt_callback {
my ($self) = @_;
my $msec = $self->value;
printf "\r%02d:%02d",
($msec / 60000),
(($msec / 1000) % 60);
$self->restart;
}