#!/usr/bin/perl
use strict;
use Tk;
$|++;

my $mw = MainWindow->new(-title=>'Tk Test');
$mw->configure(-width=>400, -height=>100);

sleep(1);
$mw->configure(-width=>800, -height=>100);

MainLoop;