#!/usr/bin/perl

use Net::DBus;

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

my $service = $bus->get_service('org.freedesktop.Notifications');
my $notify = $service->get_object('/org/freedesktop/Notifications',
                                  'org.freedesktop.Notifications');

my $id = $notify->Notify('Test', 0, [], 'Hello, world', '...', [], {}, 1000);