use 5.020;
use strict;
use warnings;

use Net::DBus;

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