View spotify-dbus.pl
#!/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'} ) {