Small script to set field to a given value for a given file

setfield.pl

#!/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) field value\n" unless @ARGV==3;
my $song=shift;
my $field=shift;
my $value=shift;
$object->Set([$song,$field,$value]);