use 5.16.2;
use warnings;

use Net::DBus;
use Data::Peek;

my $bus = Net::DBus->find or die "Cannot connect to DBus\n";
my $hal = $bus->get_service ("org.bluez") or die "Cannot get Handle\n";