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 );

Reference found where even-sized list expected at datadumperl.pl line 12.
$VAR1 = 'Audio::XMMSClient::Result::PropDict=HASH(0x82552b8)';
$VAR2 = undef;

my @info = $conn -> medialib_get_info($result) -> wait -> value;
print Dumper( @info );

$VAR1 = bless( {
               'lmod' => 1201178022,
                 'bitrate' => 218876,
                 'status' => 1,
                 'date' => '2008',
                 'added' => 1201626189,
                 'timesplayed' => 16,
                 'size' => 6061241,
                 'sample_format' => 'S16',
                 'url' => 'file:///home/daten/music/xxx/xxx.mp3',
                 'id' => 69,
                 'isvbr' => 1,
                 'channels' => 2,
                 'samplerate' => 44100,
                 'tracknr' => 17,
                 'duration' => 221544,
                 'genre' => 'Pop',
                 'chain' => 'file:magic:id3v2:magic:mad',
                 'artist' => 'xxx',
                 'album' => 'xxx',
                 'comment' => 'noir\'08',
                 'title' => 'xxx',
                 'laststarted' => 1204912420,
                 'mime' => 'audio/mpeg'
               }, 'Audio::XMMSClient::Result::PropDict' );

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

print $info->{title},"\n"