#!/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;