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

my $height = 100;
my $width = 400;

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

$mw->repeat(50, sub{
   $width += 5;
   $height += 5;
   $mw->configure(-width=>$width, -height=>$height);
});

MainLoop;