#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Tk;

$top=MainWindow->new();

$button=$top->Button(-text => "I will grow", 
                     -command => \&exit);
$button->pack(-expand => "yes", -fill => "both");
MainLoop;