EVOLUTION-MANAGER

Edit File: notification.pl

#!/usr/bin/perl use Net::DBus qw(:typing); my $bus = Net::DBus->session; my $svc = $bus->get_service("org.freedesktop.Notifications"); my $obj = $svc->get_object("/org/freedesktop/Notifications"); $obj->Notify("notification.pl", 0, '', "Demo notification", "Demonstrating using of desktop\n" . "notifications from Net::DBus\n", ["done", "Done"], {"desktop-entry" => "virt-manager", x => dbus_variant(dbus_int32(200)), y => dbus_variant(dbus_int32(200))}, 2_000);