use strict; use Net::DBus; use Data::Dumper; my $bus = Net::DBus->find; my $service = $bus->get_service("org.mpris.MediaPlayer2.cantata"); my $mpris = $service->get_object("/org/mpris/MediaPlayer2"); my $output = $mpris->Get('org.mpris.MediaPlayer2.Player', "Metadata"); print Dumper($output); #### $VAR1 = { 'mpris:length' => 287000000, 'xesam:title' => 'Giant Steps', 'xesam:album' => 'Giant Steps', 'mpris:artUrl' => 'file:///home/mh/.cache/cantata/covers/John Coltrane/Giant Steps.png', 'xesam:artist' => [ 'John Coltrane' ], 'xesam:genre' => [ 'Unknown' ], 'mpris:trackid' => '/com/googlecode/cantata/Track/11', 'xesam:trackNumber' => 1 };