#!/usr/bin/perl -w
######################################################################
# bigbutton.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use Tk;

$top=MainWindow->new();

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