Skip to content

Instantly share code, notes, and snippets.

#!/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'} ) {