Select Code to Download

#! /usr/bin/perl
use strict;
...
                   -command => sub { Tk::exit })->pack;

Tk::MainLoop();