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