#!/usr/bin/perl

use Net::DBus;

my $dbus_session = Net::DBus->find;
my $notification_service = $dbus_session->get_service('org.freedesktop.Notifications');
my $notification_obj = $notification_service->get_object('/org/freedesktop/Notifications', 'org.freedesktop.Notifications');
$notification_obj->Notify($ARGV[0], 0, undef 'title', 'text', undef, undef, 5000);