I know some people tend to complain about the odd-looking syntax that is typically used in Perl/Tk scripts, but at least there are easy and sensible ways to do it differently, according to taste -- but the following strikes me as being something that isn't so hard to cope with for a "simple 3-button program":

#!/usr/bin/perl

use strict;
use Tk;

my $mw = MainWindow->new;

$mw->Button(-text => 'First Button',
            -command => sub { print "You hit the First Button.\n" }
            )->pack;

$mw->Button(-text => 'Second Button',
            -command => \&second_sub,
            )->pack;

$mw->Button(-text => 'QUIT',
            -command => \&exit,
            )->pack;

MainLoop;

sub second_sub
{
    print "The Second Button invokes a Named Subroutine.\n";
    return;
}
[download]

I don't know what the same brainless app would look like in Tcl/Tk, or how long it would normally take to show up on the display and work. There's no noticeable delay running the perl script.