#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw=MainWindow->new();
$mw->withdraw();
$mw->messageBox(-icon => 'info', -message =>"It's time to leave.", -title => "Alert", -type => 'ok');