perl dbus

notify.pl

#!/usr/bin/perl                                                                 

use strict;
use warnings;

use Net::DBus;

my $bus = Net::DBus->find;

my $notify_service = $bus->get_service("org.freedesktop.Notifications");
my $notify_object = $notify_service->get_object(
    "/org/freedesktop/Notifications",
    "org.freedesktop.Notifications"
);

$notify_object->Notify(
    "DEMO", 0, "/home/miroslav/avast-logo.png", "hello!", "hello world", [], {}, 3
);




################################################################################
my $busobject = $bus->get_bus_object;

for my $name ( @{$busobject->ListNames} ) {
    if ($name !~ /^:/) {
        my $service = $bus->get_service($name);                                 
        print "SERVICE: $name\n";

    }
}