use warnings;
user strict; 

use Data::Dumper;
use Audio::XMMSClient;

my $conn = Audio::XMMSClient -> new ('xxx');
$conn -> connect;

my $result = $conn -> playback_current_id -> wait -> value;
my %info = $conn -> medialib_get_info($result) -> wait -> value;

print Dumper( %info );