Select Code to Download

use 5.020;
use strict;
...
Net::DBus::Reactor->main->run;

exit 0;

use 5.020;
use strict;
...
my $bus = Net::DBus->session;
my $rex = $bus->get_service("org.my.rex")->get_object("/my/dog/rex");
$rex->walk_dog;

<!DOCTYPE busconfig PUBLIC "-//freedesktop//DTD D-BUS Bus Configuratio
+n 1.0//EN" "http://www.freedesktop.org/standards/dbus/1.0/busconfig.d
+td">
<busconfig>
...
      <deny receive_sender="org.my.rex"/>
   </policy>
</busconfig>