#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $mw = MainWindow->new(-title=>'Tk Test');

for (my $w=0;$w<=800;$w=$w+8) {
  $mw->configure(-width=>$w, -height=>$w/4);
  $mw->update;
  #$mw->DoOneEvent;
  #$mw->idletasks;
}

MainLoop;