small script to set playcount for a song

setplaycount.pl

#!/usr/bin/perl
use warnings;
use strict;
use Net::DBus;

my $bus = Net::DBus->session;
my $service = $bus->get_service('org.gmusicbrowser');
my $object = $service->get_object('/org/gmusicbrowser', 'org.gmusicbrowser');

die "Usage : $0 file(with full path) value\n" unless @ARGV==2;
my $song=shift;
my $value=shift;
my $ok= $object->Set([$song,'playcount',$value]);
warn "error\n" unless $ok