Измените объем Spotify с Dbus

Я пытаюсь создать сценарий оболочки, который может управлять объемом клиента Spotify, работающего на человечности, (не общая громкость). Но я получаю эту ошибку с помощью Dbus и команды $player->Volume(d).

.freedesktop.DBus.Error.InvalidArgs: Error setting property 'Volume': Expected type 'd' but got 's'

Сценарий оболочки: (здесь использующий просто значение 0.2 для тестирования)

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use File::Basename;
use Net::DBus;

  # Figure out some dbus stuff
  unless ( defined $ENV{'DBUS_SESSION_BUS_ADDRESS'} ) { 
    &set_DBUS_SESSION_BUS_ADDRESS;
    #die "Don't know which dbus to attach to.\nMake sure environment variable DBUS_SESSION_BUS_ADDRESS is set.";
    }
  #my $bus =        Net::DBus->find;
  my $bus =         Net::DBus->session;
  my $spotify =     $bus->get_service("org.mpris.MediaPlayer2.spotify");
  my $player =      $spotify->get_object("/org/mpris/MediaPlayer2", "org.mpris.MediaPlayer2.Player");
  my $application = $spotify->get_object("/org/mpris/MediaPlayer2", "org.mpris.MediaPlayer2");
  my $getorset =    $spotify->get_object("/org/mpris/MediaPlayer2", "org.freedesktop.DBus.Properties");

# Handle command line argument
if (scalar @ARGV == 0) { &print_help; }

given ($ARGV[0]) {
    when ('play') {     $player->Play(); }      #Does not work for some reason.
    when ('pause') {    $player->Pause(); }
    when ('playpause') {    $player->PlayPause(); }
    when ('next') {     $player->Next(); }
    when ('previous') {     $player->Previous(); }
    when ('stop') {     $player->Stop(); }
    when ('playstatus') { print $getorset->Get("org.mpris.MediaPlayer2.Player", "PlaybackStatus") . "\n"; }
    when ('0.2') {$player->Volume(0.2);}
    when (m/\bspotify:(artist|album|track):[0-9a-zA-z]{22}\b/) { $player->OpenUri($_); }
    when ('metadata-debug') { &print_debug_metadata; }
    default { &print_help; }
}


# Print the help text
sub print_help {
    print "USAGE: " . basename($0) . " {pause|playpause|next|previous|stop|playstatus|metadata-debug|<spotify URI>}\n\n";
    print "\t" . "pause"        . "\t\t"    . "Causes spotify to pause current playback."       . "\n";
    print "\t" . "playpause"    . "\t"      . "Causes spotify to pause or play current playback."   . "\n";
    print "\t" . "next"     . "\t\t"    . "Goes to next song."                  . "\n";
    print "\t" . "previous"     . "\t"      . "Goes to previous song."              . "\n";
    print "\t" . "stop"     . "\t\t"    . "Stops playback."                 . "\n";
    print "\t" . "playstatus"   . "\t"      . "Prints current playstatus (Playing/Paused)."     . "\n";
    print "\t" . "<spotify URI>"    . "\t"      . "Starts playing supplied URI."            . "\n";
    print "\t" . "metadata-debug"   . "\t"      . "Shows available data on currently playing song." . "\n";
    print "\t"          . "\t\t"    . "Fairly unformatted, thus \"debug\" data."        . "\n";
    print                                                     "\n";
    print "EXAMPLES:\t" . basename($0) . " playpause"                           . "\n";
    print "\t\t"        . basename($0) . " spotify:track:5XXAq1r5r73ZyBS0XAiGw0"            . "\n";

    exit;
}

# Print some raw metadata
sub print_debug_metadata {
    # Dereference the metadata hashref by copying it to a local hash
    my %metadata = %{ $getorset->Get("org.mpris.MediaPlayer2.Player", "Metadata") };

    # Print all metadata
    print "Now Playing:\n";
    for (keys %metadata) {
        print $_ . ":\t" . $metadata{$_} . "\n" unless ($_ eq 'xesam:artist');
    }

    # Dereference the artist arrayref by copying it to local array
    my @artistarray = @{ $metadata{'xesam:artist'} };

    # Print all artists.
    foreach my $artist (@artistarray) {
        print "artist: \t" . $artist . "\n";
    }
}

sub set_DBUS_SESSION_BUS_ADDRESS {
    my $curruser    = `whoami`; chomp $curruser;
    my $procname    = 'spotify';
    my $pid     = `pgrep -o -u $curruser $procname`; chomp $pid;
    my $environ = '/proc/' . $pid . '/environ';
    my $dbussession = `grep -z DBUS_SESSION_BUS_ADDRESS $environ`; $dbussession =~ s/^DBUS_SESSION_BUS_ADDRESS=//;

    $ENV{'DBUS_SESSION_BUS_ADDRESS'} = $dbussession;
}

Почему это - плохой тип? Какое-либо другое обходное решение?

Заранее спасибо