Select Code to Download

"/Users/nick/perl5/perlbrew/perls/perl-5.40.1/bin/perl" "-I../t" "-MTk
+Test" "-e" "checked_test_harness('../xt', 0, '../blib/lib', '../blib/
+arch')" t/*.t

t/basic.t .. 1/5

Test Summary Report
-------------------
...
Result: FAIL
Failed 1/76 test programs. 0/4257 subtests failed.
make: *** [test_dynamic] Error 255

#!/usr/bin/perl
use strict;
...
use Tk;
my $mw = MainWindow->new; $mw->title("Hello World"); $mw->Button(-text
+ => "Done", -command => sub { exit })->pack;
MainLoop;