#!/usr/bin/perl -w
use strict;
use Tk;

my $mw = tkinit;

my $notification = $mw->Toplevel();
$notification->geometry('+400+400');
$notification->withdraw;               # Hide display window


$notification->protocol('WM_DELETE_WINDOW' => sub {   });        
#$notification->overrideredirect(1);    # Remove window decorations

$notification->Label(
    -text       => 'Your message displayed here.',
    -foreground => 'white',
    -background => 'black',
    -height     => 5
)->pack;

$mw->Button(
    -text    => 'Display Notification Window',
    -command => \&display_note
)->pack;

MainLoop;

sub display_note {
    $notification->deiconify;
    $notification->raise;
    
    # this is where you setup a condition to withdraw it
    $notification->after( 5000, \&hide_note );
}

sub hide_note {
    $notification->withdraw;
}
[download]

Yeah that is really cool
but is it possible to remove the minimize and maximize button in the dialog box ?

... yes....uncomment the line

#  $notification->overrideredirect(1);    # Remove window decorations
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku

Being a cross-platform toolkit, I don't think Tk provides any way to put things in the notification area in Windows.

You could use Tk::Dialog to create a window which has your information in it, and an 'OK' button. Would that fit your needs?

system "xmessage your message";
[download]