#! /usr/bin/perl -w

use strict;

use Tk;

MainWindow->new->Button(-text => "Cancel",
              -command => sub {exit 1}
             )->pack(-side => 'left', -expand => 1);
Tk::MainLoop();