<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

use Net::DBus qw(:typing);


my $bus = Net::DBus-&gt;session;

my $svc = $bus-&gt;get_service("org.freedesktop.Notifications");
my $obj = $svc-&gt;get_object("/org/freedesktop/Notifications");

$obj-&gt;Notify("notification.pl",
	     0,
	     '',
	     "Demo notification",
	     "Demonstrating using of desktop\n" .
	     "notifications from Net::DBus\n",
	     ["done", "Done"],
	     {"desktop-entry" =&gt; "virt-manager", x =&gt; dbus_variant(dbus_int32(200)), y =&gt; dbus_variant(dbus_int32(200))},
	     2_000);
</pre></body></html>