#!/usr/bin/perl

use strict;
use warnings;
use Glib qw( TRUE FALSE );
use Gtk2::Notify -init, 'Replace';

my $n = Gtk2::Notify->new('Summary', 'First message');
$n->set_timeout(0);

$n->show;

Glib::Timeout->add(3000, \&replace, $n);
Gtk2->main;

sub replace {
    my ($n) = @_;

    $n->update('Second Summary', 'First mesage was replaced');
    $n->set_timeout(-1);

    $n->show;

    Gtk2->main_quit;
}