Help for this page

Select Code to Download

Select or download this

#!/usr/local2/bin/perl -w
use Tk;
...
$l->pack;
$t->Button(-text => 'exit',-command => sub {exit;})->pack;
MainLoop;

Select or download this

  #!/usr/local/bin/perl -w
  use Tk;
...

  $t->Button(-text => 'exit',-command => sub {exit;})->pack;
  MainLoop;