#!/usr/bin/perl

use strict;
use warnings;

use Tk;

# ... setup code that prepares the widget hierarchy ...

MainLoop;

# ... cleanup code as the program is exiting, usually there is nothing here ...

__END__