Thanks for the TOTD tip. I just tried it, and it seemed to work, but I have a slight problem. The program doesn't seem to return control to the shell that called it once the program exits. The effect is reproducible in the following code:

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Tk;
use Tk::TOTD;

my $mw = MainWindow->new;

my $label = $mw->Label(
    -text => 'hi!')->pack;
my $entry = $mw->Entry()->pack;
my $button = $mw->Button(
    -text => 'push me!')->pack;

my @messages = (
    'message 1',
    'message 2',
    'message 3');

my $totd = $mw->TOTD (
    -title    => 'Tip Of The Day',
    -messages => \@messages);

$totd->Show;

MainLoop;
[download]

If necessary, i can open this in a new node.