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;
}
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. |