#!/usr/bin/perl

# http://perlmonks.org/?node_id=1141496

use Tk;
use strict;
use warnings;
$| = 1;

my $mw = MainWindow->new;

my $continue = $mw->Button(-text => 'Continue',
  -command => sub {print "continue was pressed\n" ; $mw->destroy },
  )->pack;
my $exit = $mw->Button(-text => 'Exit',
  -command => sub {print "exit was pressed\n" ; $mw->destroy },
  )->pack;

$mw->after(3_000, sub { $continue->invoke } ); # automation :)
  
MainLoop;
[download]