/usr/share/doc/libgtk2-notify-perl/examples/urgency.pl is in libgtk2-notify-perl 0.05-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #!/usr/bin/perl
use strict;
use warnings;
use Gtk2::Notify -init, 'Urgency';
my $n = Gtk2::Notify->new('Low Urgency', 'Joe signed online.');
$n->set_urgency('low');
$n->show;
$n = Gtk2::Notify->new('Normal Urgency', 'You have a meeting in 10 minutes.');
$n->set_urgency('normal');
$n->show;
$n = Gtk2::Notify->new('Critical Urgency', 'This message will self-destruct in 10 seconds.');
$n->set_urgency('critical');
$n->set_timeout(10_000); # 10 seconds
$n->show;
|